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SEQ 



2 
3 
4 

5 IDEMTiriC^TION 

7 

8 PRODUCT CODEl AC«F650A-MC 

9 

t0 PRODUCT nmEt CXTUAA0 TU«S8 HODUliE 

11 

12 PRODUCT OATEl JUNE 1979 

13 

14 MAINTAINERI DEC/Xll SUPPORT GROUP 

15 

16 THE INFORMATION IW THIS DOCUMENT IS SUBJECT TO CHANGE 

17 WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT 

18 BY DIGITAL EQUIPMENT CORPORATION^ DIGITAL EQUIPf^ENT 

19 CORPORATION ASSUMES NO RESPONSIBILITY FOR ANY ERRORS THAT 

20 MAY APPEAR IN THIS MANUAL^ 
21 

22 THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE \ 

23 PURCHASER UMDER A LICENSE FOR USE ON A SINGLE COMPUTER 

24 SYSTEM AND CAN BE COPIED (WITH INCLUSION OF DIGITALS 
as COPYRIGHT NOTICE) ONLY FOR USE IN SUCH S^STEM^ EXCEPT AS 

26 OTHERI^ISE BE PROVIDED IN WRITING BY DIGITAL^ 
27 

28 DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR 

29 THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS 

30 NOT SUPPLIED BY DIGITAL^ 

II 

32 COPYRIGHT CO 1979 DIGITAL EQUIPMENT CORPORATION 
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33 ig0 ABSTRACT 
35 

36 TUA IS AN lOHOD THAT EXEPCISES A TU58 COI^TROLLEF CONFIGURED 

37 ^Hn EITHER i OR 2 DRIVES^ THE ACTUAL DEVICE INTERFACE TO THE 

38 PDP»li BUS IS COMPATIBLE WITH THE DLU FAMILYi AND HOST<««>DEVICE 
3^ COMMUNICATIONS IS IMPLEMENTED AS SPECIFIED BY RADIAL SERIAL 

40 PROTOCOLt 
41 

42 THE EXERCISE ITSELF I^^ILL CONSIST OF A SEQUENCE OF WRITE (RANDOM 

43 DATA) OPERATIONS FOLLOWED BY READ SAME BLOCK FOR RANDOM BLOCKS 

44 ON TAPEf WITH RETRIES CIF NECESSARY) PERFORMED AT THE DEVICE 

45 LEVEL, 
46 

47 ALL ISOLATABLE ERRORS (DATA CHECK OR COMMUNICATIONS) WILL BE 

48 REPORTED TO THE CONSOLE DEVICEt UPON OCCURRANCE OF NON-FATAL 

49 ERROR^ THE DEVICE IS RE»INITIALIEED ANND THE TEST SEQUENCE RE« 
§0 STARTED AT THE FIRST OPERATION (SELF TEST)e 

Si 

S2 

53 2t0 REQUIREMENTS 

§4 mmmmmmwmmmmm 

ss 

56 HARDWAREl ONE DLli COMPATIBLE INTERFACE TUS8 CONTROLLER 

57 WITH AT LEAST ONE DRIVE (DRIVE 0)^ 
38 

59 STORAGEi 

60 DECIMAL WORDSI 1593 

61 OCTAL WORDSi 3071 

62 OCTAL BYTES! 6162 
63 

64 

65 3t0 PASS DEFINITION 

66 m&mmmmmmmmmmmmm 

67 

68 A NUMBER OF WR/RD BLOCK OPERATIONS AVERAGED TO ALLOW FOR MAX^ 

69 30-SECOND REWINDS PER TAPEe 
70 

71 

72 4@0 EXECUTION TIME 

73 

74 

75 VARIES WITH COMMUNICATIONS RATE BUT SHOULD BE LESS THAN ONE 

76 MINUTE AT 9600 BAUD OR GREATER^ 
77 

78 

79 5s0 CONFIGURATION PARAMETERS 

81 

82 DEFAULT PARAMETERSI 

83 

84 DVAl 176500 VCTI 300# BRll 4 BR2I 0# DVCl 1 

85 

86 AT CONFIGURATION TIME SPECIFVl 

87 

ii DVC 8 1 FOR TEST DRIVE ONLY 
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SEQ 0003 



89 DVC s 2 rOP TEST DRIVE I ONLY 

90 D¥C e 3 FOp TEST DRIVE AND DRIVE 1 
91 

92 

93 6g0 DEVICE OPTION SETUP 

^4 w «s) » a V » » w ^ 9 a e» sa n a (B 

95 

96 MAKE SUPE SCRATCH TAPE CARTRIDGE IS IK PLACE AND I^RlTE ENABLED 

97 FOR ALL APPROPRIATE DRIVES^ 
98 

99 

100 7,0 MODULE OPERATION 

101 mm^mmmmmmmmm&mmm 

102 

t^i lA SUBMODULE DEFIi^ITIONS 

106 

107 INITl THIS ROUTINE PROVIDES RADIAL SERIAL "BREAK« TO 

108 THE DEVICE? AND EXPECTS THE APPROPRIATE RESPONSE^ 

109 IT IS INVOKED UPON STARTUP AND AFTER CERTAIN 
il^ ERRORSs FAILURE TO INIT IS GROUNDS FOR MODULE 
III DROP^ 

112 

113 SYSlNIi SETS UP BOTH INPUT AND OUTPUT INTERRUPT ROUTINES^ 

U4 VECTORS AND PRIORITIES^ INIT^S DRIVE CONFIGURATION 

US AND VARIABLES, 

116 

117 DECODl RETRIEVES NEXT FUNCTIONAL OP^-CODE CRD# m, ETCO 

US FROM TEST TABLE IN PREPARATION FOR NEXT COMMUNICATION 

119 PACKET (COMMAND OR DATA), THEN CREATES THE 

120 CORRECT PACKET USING THAT Op CODE THEN 

121 SETS UP THE EXPECTED RESPONSE PARAMETERS 

122 FROM UNIT I THE EXPECTED RECEIVE PACKET BYTE 

123 C0UNT(5),AND THE EXPECTED FLAG BYTECS)^ 
124 

125 GVNTAKf THIS ROUTINE SETS INTERRUPT ENABLE FOR SEND AND 

126 RECEIVE^ THEN ENTERS WAIT LOOp UNTIL PKSNT IS 

127 ASSERTED^ IT THEN WAITS ON PKRCV TO COMpLETEi 

128 THEN RETURNS* THESE FLAGS ARE INDICITIVE OF 

129 ENTIRE PACKET SENT OR RECEIVED^ NOT A SINGLE 
13(^ BYTE« 

131 

132 SNDHNOi SEND INTERRUPT ROUTINE SENDS PACKET TO DEVICE^ 

133 ASSERTS PKSNT AT FINISH? DOES RTIt 
134 

135 RCVHNDl RECEIVE INTERRUPT ROUTINE GETS RESPONSE FROM 

136 UNIT (MAY BE MULTIPLE PACKETS) AND CHECKS 1ST 

137 BYTE OF EACH PACKET TO DETERMINE IF IT IS ^HAT 

138 WAS EXPECTED IN ORDER TO ADJUST RECEIVE BYTE 

139 COUNT IF WOTg CHECKS FOR EARLY END PACK 

H0 OR DLV "OVERRUN" (DATA LATE)^ ASSERTS PKRCVD 

141 AT COMPLETION AND RTI*'S SINCE UNITS RESPONSE IS 

142 CONTINUOUS (NO HANDSHAKE) AND FAST (3884K BAUD 

143 MAXDg 
144 
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SSQ 0004 



CHK^MSI BIASED Of^ THE RESPONSii THIS ROUTINE ChhhB ROUTI^IES 

TO CHECK CHECKSUM^ CHECK END PACKET^ AND/OR CHECK DIfAg 



1,2 DESCRIPTION or TABLESf QUEUES^ BUrFEPS 



OPTELi liIST OF ENCODED iORDi CONTIilHING THE MEXT PI^CKET 

TO SEHDf If^HICH DRIVE TO EH^BliE# MD IF PACKET li 
COMMAND OR DATAg 

aPDBUFi AREA WHERE PACKET IS iUILf AND SUBSEQUENTLY SEI^T 

¥IA INTERRUPT ROUTINE^ CONTAINS 1 PACKET « BE 
If COMMAND OR DAfAt 

RCVBUn ARIA WHERE PACKETCS) ARE RECEIVED DURING INTERRUPT 

SERVICES CONTAIN MAX OFl CDATA«DATA«DATA«^ 

DAfA«END3 PACKETS IN SEQUENCE^ 



8g0 OPERATOR OPTIONS 



At USE THE «HOD^ COMMAND TO DUMP THE SUFFERS IN ORDER TO MAXIMIZE 
ERROR INFORMATIONS 



# 
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172 


000000 * 








lOMOD 


<TUAA > 


,17650 


0,300,4,0,2,1,17 


173 


000000 ' 








MODULE 


140000, 


TUAA , 


176500,300,4,0,2, 1, 17 


174 








.TITLE 


TUAA DEC/Xll 


SYSTEM EXERCISER MODULE 


175 










DDXCOM 


VF.BSION 


6 


23-MAY-78 


176 










.LIST 


BIN 






177 












000000 ' 






BEGINi 










179 


000000 ' 


052524 


04050 1 


040 MODNAm; 


cASCXI 


/TUAA / 


JMODULE NAMEa 


180 


000005" 


000 




XFLAGi 


.BYTE 


OPEN 




fUSED TO KEEP TRACK OF WBUFF USAGE 






i ' O 310 W 




ADPRJ 


176500+0 




nST DEVICE ADDR. 


« 


XIX/W^' i IT 






VECTOR 1 


300*0 






{1ST DEVICE VECTOR, 


1 B3 


0000 12' 


200 




BRl I 


,BYTE 


PPTY44-0 




M5T BR LEVEL, 


184 








BR2I 


,BYTE 


PPTY0*0 




I2ND BR LEVEL, 


185 


00001 4 ' 


00000 3 




DVIDll 


2-^1 






JDEVICE INDICATOR U 


186 


V)<ay}\0 I o 


WWlDlt'lOK' 




SRI J 


OPEN 






{SWITCH REGISTER 1 


1 aa 


VViVxi £ t 


VtV'VjvVjrf 




SR2I 
SR3I 


OPEN 
OPEN 






{SWITCH REGISTER 2 
{SWITCH REGISTER 3 


1 HQ 








SR4t 


OPEN 






{SWITCH REGISTER 4 


1 90 












1 ¥ 1 




4 AtXOkO'n 

1 Hpi'iCly 




STATs 


140000 






{STATUS WORD, 




000030' 






INITI 


START 






{MODULE START ADDR, 


193 


1 ' 

VVVwSd 


0W02Z 4 




SPOINTI 


MODSP 






{MODULE STACK POINTER, 


1 94 




000000 




PA5CNTI 









{PASS COUNTER, 


195 


000036 * 


00000 1 




ICONTi 


1 






{# OF ITERATIONS PEP PASSai 




kJ 10 (0 w 


SOYiVixlViV) 




ICOUNTI 









{LOC TO COUNT ITERATIONS 


197 


000042 * 


000000 




SOFCNTl 









{LOC TO SAVE TOTAL SOFT ERRORS 




U W »^ H "8 *l 


000000 




HRDCNTI 









{LOC TO SAVE TOTAL HARD ERRORS 


1 QQ 


VVI\0'> to 


kJic' WW Wr* 




SOFPAS 1 









{LOC TO SAVE SOFT ERRORS PER PASS 


200 




000000 




uono A e f 










201 


WWlfIr) 3 / 






SYSCNTI 









{« OF SYS ERRORS ACCUMULATED 


202 


0000S4 ' 


000000 




RANNUMI 









{HOLDS RANDOM » WHEN RAND MACRO IS CALLED 










CONFIGl 








{RESERVED FOR MONITOR USE 


204 


0000S6 ' 


000000 




RESlI 









{RESERVED FOR MONITOR USE 


205 


000060 ' 


000000 




RES2i 









{RESERVED FOR MONITOR USE 


206 


00006 2 ' 


000000 




SVR0i 


OPEN 






{LOC TO SAVE R0, 


207 


000064 ' 






SVRli 


OPEN 






{LOC TO SAVE Rl, 


208 


ili0ig266 ' 


000000 




SVR2i 


OPEN 






{LOC TO SAVE R2, 


209 








SVR3I 


OPEN 






{LOC TO SAVE R3» 


210 


000072 * 


000000 




SVR4I 


OPEN 






{LOC TO SAVE R4, 


211 








SVR5I 


OPEN 






{LOC TO SAVE P5, 


212 


000075 « 


000000 




SVR6t 


OPEN 






{LOC TO SAVE R6, 


213 


000 1 00 ' 






CSPAl 


OPEN 






{ADOR or CURRENT CSR, 


214 


000102 ' 






SBADRI 








{ADDR OF GOOD DATA, OR 


215 








ACSRi 


OPEN 






{CONTENTS OF CSR, 


216 


0001 04 ' 






WASADRI 








{ADDR OF BAD DATA, OR 


217 


000104' 


000000 




ASTATI 


OPEN 






{STATUS REG CONTENTS, 


218 


000106^ 






ERRTYPI 








{TYPE OF ERROR 


219 


000106' 


000000 




ASBi 


OPEN 






{EXPECTED DATA, 


220 


000110' 


000000 




AWASI 


OPEN 






{ACTUAL DATA, 


221 


000112' 


000562* 




PSTRX8 


PESTRT 






{RESTART ADDRESS AFTER END OF PASS 


222 


000114' 


000000 




WDTOl 


OPEN 






{WORDS TO MEMORY PER ITERATION 


223 


000116' 


000000 




WDFR! 


OPEN 






{WORDS FROM MEMORY PER ITERATION 


224 


000120' 


000000 




INTRI 


OPEN 






{# OF INTERRUPTS PER ITERATION 


223 


000122' 


000017 




IDNUMf 


17 






{MODULE IDENTIFICATION NUMBERisn 


226 




000040 






sPEPT 


SPSIZ 




{MODULE STACK STARTS HERE, 



227 ,NLIST 



TUAA DEC/Xll SYSTEM EXERCISER MODULE MACYll 30A(10525 13»JUN»79 12l36 PAGE 7 

XTUAA0«P11 15«JUN«79 12126 SLQ 000b 

228 gWOPD 

229 ,LIST 

230 ,ENDR 

231 000224' MODSPI 

232 { 
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<»JliN<»79 12l26 


VODULF 


DATA SFCTTON 




233 








WODULE 


DATA SECTION 




234 








FLAGS «• 






2 35 
236 


000224 


00000C? 


PK5NT I 


.WORD 






2 37 


fc / iC? « & O 


00006*0 


PKPC VD 1 


,KOPD 




jPACKET RECEIVED 


2 3 8 


00023^3 * 


000000 


una i "r" 1 


.WORD 




1 iB.PASS«BiTHPOUGHBs.TABLE FLAG 


239 


v'^r? 6 3 S 


000000 


FSTFliG 1 


«WORD 




J EXPECXING«,FLAG„BYTE FLAG 


24^ 


000234 * 


000000 




.WORD 




jRECV STATUS REGg ADDR. 


24 1 


wv" d Jo 


000000 


RCDP 1 


.WORD 




fDKfV RAT4 RIIFFFH ARDB. 


242 


000240' 


000000 


XMSRt 


.WORD 




jTRANSMIT STATUS REG. ADDR, 


243 


000242* 


000000 


XMDBI 


.WORD 




JTRANSMIT DATA BUFFER ADDR, 


;244 


000244 * 


000000 


DVIDX 1 


jWOPD 




jDRIVE CONFIGURATION 


24S 














246 














24? 








OTHER STORAGE <^mmmm^^ 




248 
249 


M Ai^t ^ >t & ^ 


000000 


SYSTAT 1 


, WORD 




•SYSTEM STATUS WORD 














» BITSaOUT^TO^LUNCH ERROR CCHKANS) 


2§ 1 












fBITisSELF TEST SENT 


252 












• Q T TOtinr* uif e MM Ann 


253 


fi/^a ^ ^ ' 
Vlfov « 3 »3 


000000 


DPVi 


9 WORD 




jCURRENT DRIVE NUMBER 




d'i (31 S T * 




A SOP V 1 


,BLKW 


2 




2§5 


000256' 


000000 




.WORD 







256 


000260' 


000000 




.WORD 







257 














258 


000262 


0000^2 


A d« D D fi s 

ASpUBT S 


»BLKW 


2 




2S9 


0002S6 ' 


000000 




e WORD 







260 


000270 ' 


000000 




sWORD 







26 i 


ffl (35 /fl 1 f 'I * 


000000 


PEC 1 


gWOPD 






t t 




W «' W 10 1' M 


D ft T fi B 

PATHN 1 


sWORD 




fUATA rAlT&Kw 


264 


000276 * 


000000 


SUCCS S 


8 WORD 












PK PTR i 


«WORD 




J Iwr UP vUnn&irii KMWt^Cii VAUUngJ 




^0^302 ' 


000000 


XSPTP t 


,WORD 




• DftTKlTfTB TO NFYT V»$t1,C AD YflfNT 




JO'S 




TBLTOP I 


,WORD 




jjUr Uf US" rADuCi 






000000 


TBLPTR 1 


.WORD 




fPOTNTF'B TO OP TORF TN ODTBT. 








sndptr t 


,WORD 




IDOTImTFB to IfMTT RIIFFffB 


270 


r' V7 1^ J J ^ 


aatxaaa 


Ol^MW W i i 


.WORD 




jNUf'BER OF BYTES REMAINING TO SEND 


271 


0003 14' 


aaaaaa 




.WORD 




SDOTNTFB TN BFCFlVF RIIFFFB 




0003 16' 


vVfVj'ffVVi 


CTDKNM 1 


.WORD 




t aOF DATKFT^ LFFT nilBTNR BFriFUF 


27 3 






OKfUKrt t 
tr n n U » 


.WORD 




•8 OF BirKFTS RFTNR fUVfKVTS TN rHK&N« 




OkOitA "l *5 O * 


\oVitjVt\a\p 


PC VCNT t 


.WORD 




fAfTltAL rOllNT tISPn TN BFfFtUF 




aaa i A ^ 
spviw J 4 1 




of Ml> • 

KCBL NT I 


,WORD 






27a 




000(000 


y adKNM t 
A U f 1* 1 ' n I 


.WORD 




tPYDFfTFn S OF D&fKFT^ TOT&f. 


277 








,WORD 




ITHF FYDFrTFO WlihC RVTF OF t «T DafKFT 




000 332' 




X SC l^T 1 


.WORD 




tAND TT'fi TOTAL BYTE fOIJNT 

JMnu XX D XWXHw O X X w vWU**i 


219 


aaa 1 ) d ^ 
sy w a J *f 






aBLKW 


s. 


iMllTiTTOl.F D&PKFT FYOFf'TFR FT.&Rc ANH ^'OJINTS 
; rny U X Xarub rAWnCiX E<Ar bw X r uAuo ni*w wwun|o 






000000 




.WORD 




*TMF T&RTiF OD fODF ON FBSna 


28J 


0003S6' 


000000 


FPRFLGt 


9 WORD 




JTHE EXPECTED FLAG ON ERROR CPXSPTR) 


282 


000360' 


000000 


FRRERJ 


.WORD 




;ERROR FLAG 


283 


000362 ' 


000000 


ERR WD 1 


,WORD 




•rONTFNTfi OF DfjV BmR ON ntjV FBBOB 


284 


000364' 


000000 


ATPAKi 


.WORD 




fflpKPTR ON ERROR"lST 2 BYTES 


281 


000366* 


000000 


ATPAK2I 


.WORD 




iPPKPTR+a ON ERROR««NEXI 2 BYTES 


286 
287 


000370' 


000000 


BDBYTSI 


,WORD 




iNUMBER OF BAD DATA BYTES (MAX, 128«) 


2S8 















SLQ 0007 
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15 
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MODULE 


DATA SECTION 




289 
















290 


000372' 


000000 


BRKWD8 


.WORD 





J 2 NULL BYTES 


291 


00« 


5374' 


004 


INITWDI 


,BYTE 


RSINIT 


UNIT BYTE 


292 




9375' 


000 




.BYTE 





IRSCONT EXPECTED HERE 


293 
















294 
















29S 










GENERAL 


EQUATES 




296 
















297 






000100 


EI 




100 




298 






000100 


DI 




100 




299 






000000 


DSDATA 


B 







300 






000001 


DTAFLl 


m 


1 




301 






000010 


DTAFL2 


s 


10 




302 






00001 I 


DTAFLl 


- s 


11 




303 






000100 


DTAFL4 




100 




304 






100000 


CMNDFL 




100000 




30S 






000000 


DRV0 









306 
307 






000400 


DRVl 




400 




308 
















309 
















310 










PROTOCOL 


EQUATES 




311 
















312 








J FLAG B 


YTE CODES? 




313 
















314 






000002 


RSCMND 


s 


2 




315 






000020 


PICONT 




20 




316 






000020 


RSXON 




20 




317 






000023 


PSXOFF 


m 


23 




318 






000004 


RSINIT 




4 




319 






000001 


R$DATA 




1 










000002 


RSEND 


m 


RSCMND 




321 
















322 








jSIZESS 








323 
















324 






000016 


PSNDSZ 




H. 


;END PACK SIZE 


325 






000012 


PSMSIE 


SI 


If*. 


{MESSAGE SIZE 


326 






000204 


PSDASZ 


sa 


132, 


jDATA PACK SIZE 


327 






000222 


RSDNSE 


B 


PSDASZ + RSN'DSZ 


JDATA PLUS END PACK SIZE 


328 






000016 


RSSNSZ 


SS 


PSMSlZ+4 


;5END SIZE OF MESSAGE PACK 


329 
















330 








;0P CODES: 






331 
















332 






000100 


FSSEND 


s 


1(?0 




333 






0000P3 


RSSWR 


s 


3 




334 






000002 


PSSRD 




2 




335 






000005 


PSSSEK 




5 




336 






000000 


R$$NO» 




1? 




337 






000001 


KS$f-'IT 


!S 


1 




338 






0000c<7 


PSSSLF 


s 


7 




339 
















340 








; SUCCESS CODES 






341 
342 








FSOK 




k! 


;GOnD SOCCKSS 


343 






17772H 


ESABO 






;PAD CO^^MftND 


344 






177767 


f!.$NCRT 




-Q , 


jNO CAFT. 
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MODULE 


DATA 


SECTION 




34S 


177770 


ESNONX 






;N0 DRIVE 


346 


177776 


ESPART 




"28 


>E,0,M, 


347 


177740 


E$SK 


s 


«32s 


rSEEK ERROR 


348 


000001 


E$TPY 




1 


JPETRIES 


349 


177765 


E$WLOC 


SI 


-1 ! « 


JWRITE PROT, 


350 


177737 


E$N0MO 


8 


"339 


} MOTOR STOPPED 


351 


177720 


ESCMD 




"48, 


jaBAD COMMAND 


352 


177711 


E$REC 


8 


"55, 


IBAD RECORD » SENT 


353 


177757 


EICKS 




«179 


jDATA CHECK ERROR 


354 


177777 


EISLF 


n 


""Is 


fSELF TEST FAIL 


3SS 


177757 


EICKSM 




EfCKS 




356 


177757 


E9WF 


ss 


EICKS 




357 


177757 


E8RD 


m 


ESCKS 




358 












359 
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360 
361 
362 
363 
364 
363 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 
397 
398 
399 
400 
401 



000376* 
000400* 10 
000402*' 000001 



000406' 000011 

000410" 000100 

000412' 100002 

000414* 100407 

000416^ 100403 

000420" 000401 

000422' 000410 

000424' 000411 

000426' 000500 

000430' 100402 

000432' 177777 



000434* 100407 



000436' 
000440' 
000442' 
000444' 
000446' 
0004S0' 
000432' 
0004S4' 
000456' 



000462' 
000464* 



000470* 
000472* 
000474* 
000476* 



0003S4'' 
000272' 
000274' 
000314' 
000356' 
000300' 
000374' 
000362' 
000322' 
000324' 
000326' 
000330' 
000332' 
000320' 
000364' 
000366' 
177777 



Test command table 



OPTBLl 9 word 

»word 

.WORD 
a WORD 
»W0RD 
.WORD 
,WORD 
0PTBL2I ,W0RD 
9 WORD 
9 WORD 
9 WORD 

eWORD 

«WORD 

aWOPD 

»WORD 



RiSSLF|CMNDFL|DRV0 

RS$WRlCMNDrLiDRV0 

D$DATAtDTArLUDRV0 

D$DATAiDTArL2|DRV0 

D8DATA|DTArL3|DRV0 

D$DATAlDTArL4iDRV0 

R$8ROiCMNDrLlDRV0 

RIISLFiCMNDFLlDRVl 

RSiWRICMNDFLlDRVl 

DIDATAIDTAFLUDRVI 

D8DAfA|DTAFL2iDRVl 

D8DATAIDTAFL3IDRVI 

D$DATA|DTAFL4iDRVl 

RiSRDICMNDFLlDRVl 

-1 



ORlOPi »WORD RIISLFICHNDFLIDRVI 



TABLE FOR EXTENDED ERROR INFO 



ERRTBLl ,WORD 
«WORD 
«WORD 
jWORD 
.WORD 
,WORD 
.WORD 

aWORD 

ERFTB21 »WORD 
gWOPD 
,WORD 

»w0rd 

bWORD 
sWORD 
.WORD 
.WORD 
»KORD 



ERROP 

REC 

PATRN 

RCVPTP 

ERRFLG 

PKPTR 

INITWD 

ERRWD 

RCVCNT 

RCBCNT 

X8PKNM 

X8FLG 

XlCNT 

PKCHKD 

ATPAK 

ATPAK2 

-1 



fOP CODE ZN COMMAND TABLE (OPTBL) 

I THE RECORD NUMBER 

ITHE DATA PATTERN 

JBYTE POINTER IN RECIEVE BUFFER 

I THE EXPECTED FLAG BYTE Of CURRENT .PACK 

IPOINTER TO TOP OF CURRENT PACKET 

jRESPONSE OF INIT OP (BIT15»BIT8) 

JCONTENTS OF DLV RCDB IF DLV ERROR 

|# BYTES UNRECEIVED, IF ANY 

BYTES EXPECTED CURRENT PACKET 
j# OF PACKETS EXPECTED 
JTHE EXPECTED FLAG BYTE OF 1ST PACKET 
}THE EXPECTED COUNT OF 1ST PACKET 
l» or CURRENT PACKET BEING CHECKED 
J 1ST AND 2ND BYTES OF CURRENT PACKET 
f3RD AND 4TH BYTES OF CURRENT PACKET 
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402 










J SBTTL 


MAIN PROGPAM CONTROL 




403 


0(^0500' 


016706 


177326 




STASTI 


MOV 


SPOINT#SP 


jthe init of inits 


404 


000504' 


016767 


177304 


177532 




MOV 


DVIDl ,DV1DX 


JCOPI UHiVt wUNr ifaUKAl iUN 


405 


000512" 


126737 


177404 


000PI41 




O'PB 


IDNUM,(a»41 


JARE WE THE LOAD DEVICE? 


406 


000520' 


001016 








bNE 


2S 


; NO 


407 


000522' 


105737 


000040 






T5TB 


084C 


;YES-DRIVE 0? 


408 


000526' 


001004 








BNE 


IS 


} NO 


409 


000530' 


042767 


000001 


177506 




BIC 


#PIT0,DVIDX 


; YES-DESELECT 


410 


000536* 


000407 








BP 


28 


;CONTINUE 


411 


000540' 


122737 


000001 


000040 


ISS 


CMPB 


# 1 f i3#40 


JNOT DR0»DR1? 


412 


000546 * 


001003 








BNE 


2S 


|N0».50ME OTHER DR 


413 


000530' 


042767 


000002 


177466 




BIC 


•BiTlfDVIDX 


JYES DESELECT 


414 


0005S6' 


004767 


000310 




2SI 


CALL 


SYSINI 


•SET VECTOR GET CONFIG, 


415 


000562' 


000240 






RESTPTS 


NOP 




JMAIN LOOP 


416 


000364 ' 


104417 


000000 ^ 






RANDS, 


BEGIN 




417 


000570* 


016767 


17726^ 


177474 








J GET RECORD # 


418 


000576 ' 


042767 




177466 




BIC 


»177000#PEC 


jSIZE IT FOR TU58 


419 
420 


000604* 


104417 


000000' 






PANDS, 


BEGIN 




421 


000610* 


016767 


177240 


1774S6 




MOV 


RANNUM,PATRN 


J PROCURE DATA 


422 


000616* 


042767 


177400 


177450 




BIC 


tl77400#PATRN 


Jl'-BYTE IT 


423 
424 


000624 ' 


004767 


000436 






CALL 


DECOD 


; INTERPRET OPERATION FROM TABLEf MAKE PACKET 


425 
426 


000630' 


004767 


001652 




PSTRT2I 


CALL 


CLRBUF 


;ZERO RECEIVE BUFFER 


42? 


000634' 


004767 


000100 






CALL 


GVNTAK 


ISEND PACKET* RECEIVE RESPONSE 


428 


000640' 


004767 


001666 






CALL 


CHKANS 


J INTERPRET RESPONSE 


429 


000644* 


005767 


177510 






TST 


ERRER 


lERROR? 


430 


0006S0' 


001413 








BEQ 


13 


|N0 


431 
432 


0006S2' 


016767 


177426 


177426 


3SS 


MOV 


TBLTOP,TBLPTR 


;YESf ""J-lST OPERATION^ 


433 


000660* 


005067 


177474 






CLR 


ERRER 


1 RESET ERROR FLAG 


434 


000664" 


003067 


177356 






CLP 


SYSTAT 


jpESET SYSTEM STATUS 


435 


000670" 


005067 


177212 






CLR 


ERRTYP 


rRESET ERROR TYPE 


436 


000674* 


004767 


001372 






CALL 


DOBRK 


lINIT DEVICE 


437 


000700' 


004767 


000402 




l$l 


CALL 


DECOD 


^DECODE NEXT OPERATION 


438 


000704' 


00S767 


177320 






TST 


LASTOP 


fDONE ONE TABLE'S WORTH? 


439 


000710' 


001747 








BEQ 


RSTRT2 


;NOT YET 


440 


000? 1 2 * 


104413 


000000* 






ENDITI 


, BEGIN 




441 
















}M0NIT0R shall test end OF PASS 


442 


000716' 


000721 








BR 


RESTRT 


fKEEP ON 


443 


















444 


000720' 


042777 


00010''4 


177306 


DPOPs 


BIC 


»DI,@iRCSR 


ISHUT OFF 


445 


000726* 


042777 


000100 


177304 




BIC 


#DI,gXMSP 


;all interrupts 


446 


000734* 


104410 


000000' 






END$, BEGIN 


f 


447 
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XTUAA0,P11 15 


»JUN«79 


12126 




GVNTAK 


/ MAIN 


rOMMUNICATIONS LOOPS 


448 










eSBTTL 


GVNTAK 


/ MAIN COMMUNICATIONS LOOPS 


449 

4S0 


000740' 


012767 


000001 


177264 


GVNTAK 1 


MOV 


#1 ,FSTFLG 


fSET IST^BYTE FLAG 


451 


000746* 


003067 


1772S2 






CLR 


PKSNT 


IPACK NOT SENT YET 


432 


000752* 


005067 


177250 






CLR 


PKRCVD 


IPACK NOT RECEIVED YET 


433 


000756' 


005067 


177314 






CLR 


SUCCS 


;N0 SUCCESS CODE YET 


454 


000762' 


016767 


177344 


177332 




MOV 


X$CNT,RCVCNT 


jCOPY # BYTES TO RECIEVE 


453 


000770' 


016767 


177332 


177320 




MOV 


X«PKNM,RCPKNM 


JCOPY « PACKETS TO RCV 


456 


000776' 


012767 


000330* 


177276 




MOV 


«X$FLG,X$PTR 


fCOPY 1ST FLAG BYTE ADDR. POINTER 


437 


001004' 


012767 


005122* 


177302 




MOV 


#RCVBUF#RCVPTR 


|"»>TOP OF RECEIVE BUFF 


458 


001012* 


012767 


004714* 


177270 




MOV 


#TRBUF,SNDPTR 


,»,»>TOP OF XMIT BUFFER 


459 


001020* 


052777 


000100 


177212 




BIS 


#EI,iXMSR 


)SET UP TO SEND 


460 


001026* 


052777 


000100 


177200 




BIS 


#EI,|RCSP 


lAND RECEIVE 


46i 


001034* 








ISi 








462 


001034' 


104407 


000000* 






BREAK! 


,BEGIN 


1 TEMPORARY RETURN TO MONITOR,,., 


463 


001040* 


104407 


000000' 






BREAKS 


iBEGIN 


ITHEN CONTINUE AT NEXT INSTRUCTION, 


464 


001044* 


003767 


177154 






TST 


PKSNT 


;DONE SENDING? 


465 


001050* 


001771 








BEQ 


i$ 


fNO 


466 


001052* 








ISS 








467 


001052' 


104407 


000000* 






BREAK! 


,BEGIN 


{TEMPORARY RETURN TO MONITOR,,,. 


468 


001036* 


104407 


000000* 






BREAKS 


*BEGIN 


JTHEN CONTINUE AT NEXT INSTRUCTION, 


469 


001062* 


003767 


177140 






TST 


PKRCVD 


;DONE RECEIVING? 


470 


001066* 


001771 








BEQ 


2S 


JNO 


471 


001070* 


000207 








RTS 


PC 




472 
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SEQ 0013 



473 










.SHTTL 


SYSINI 


/ SYSTEM (MODULE) 


INIITIALIZATION 


474 
475 


001072' 


W16700 


176712 




SYSINI J 


MOV 


VECTOR, R0 


jSfcT UP VECTORS! 


476 


001076 ' 


012720 


0()2f.7n' 






MOV 


#PCVHNDi CR0)+ 


^RECEIVE ROUTINE 


477 


001 102* 


116720 


176704 






MOVB 


BPl , (P0)* 


jAND PRIORITY 


478 


091106' 


1 05720 








TSTP 


{P0) + 


;-->XMIT VECTOR ADDR 


479 


04,1 1 1 1 * 


t' i 2 7 2 


002034 ' 






MOV 


«SNDHND» (R0) * 


;SET UP SEND ROUTINE ADDR 


480 


001 1 1 4* 


116710 


176672 






MOVB 


BPl 1 9P0 


JAND PRIORITY 


481 


00 1120* 


1 6700 


176662 






MOV 


ADDP f R0 


;GET DEVICE ADDRESSESI 


48 2 


001 124' 


010067 


177104 






MOV 


P0 $ PCSR 


; / 


483 


00 1130* 


CAOiKl 001 
r}x/0 1 SO 








TST 


( P0 ) 4 


• / 


484 


001 1 32 * 


1 0057 


1771 00 






MOV 


R0 1 RCDB 


J / 


48S 


001136' 


0057 20 








TST 


CP0)^ 


• / 




00 } 1 40 ' 


1 0067 


177074 






MOV 


P0 1 XMSR 


. / 


487 


001 i 44 ' 


005720 








TST 


(P0}4' 


J / 


488 


00 1 1 46 ' 


010067 


177070 






MOV 


P0, XMDB 


. / 


489 


00 1152' 


032767 


00000 1 


177064 




BIT 


#BIT0,DVIDX 


jDR0 SELECTED? 


490 


00 J 16'^' 


001 416 








BEO 


1 S 


1 NO 


491 


001 162' 


01 2767 


000376 ' 


1771 14 




MOV 


«CPTBL,TBLTOP 


lYES'-TABLE STARTS AT DR0 OPERATIONS 


492 


001 170* 


012767 


177777 


177216 




MOV 


8»1 #0PTBL2 


IPRESET AS NO DRl 


493 


00 1176' 


032767 


000002 


1 77040 




BIT 


«BIT1 , DVIDX 


{SELECTED HOWEVER? 


494 


001 204* 


r 1 4 2 








BEQ 


SY5SET 


fNO^ALL SET 


49S 


00 1 206 * 


016767 


177222 


1 77200 




MOV 


DPlOP, 0PTBL2 


|YES»INSEPT OP CODE 


496 


001 214' 


0004 1 4 








BR 


SYSSET 


JCONTINUE 


497 


001 216' 


32767 


000002 


1 77020 


i g 1 


BIT 


#PITl , DVIDX 


jHEREfflNO DR0ee9ORl? 


498 


001 224 * 


00 1 002 








BNE 


28 


JYES^CONTINUE 


499 


001 226 * 


004767 


177466 






CALL 


DROP 


|N0 DRIVES^NO WAY 


500 


001 232 * 


012767 


00041 4 * 


177044 


2$ 1 


MOV 


iOPTBL2» TBLTOP 


J JUST DRl'TOP IS DRl START 


501 


00 1 240 * 


016767 


177170 


1 77146 




MOV 


DPl0P,0PT8L2 


J INSERT OP CODE 


502 


001246* 


016767 


177032 


177032 


SYssETi 


MOV 


TBLTOP* TBLPTR 


>NOW SET POINTER TO TOP, 


503 


001254' 


004767 


001012 






CALL 


DOBRK 


UNIT UNIT 


S04 


001260' 


005067 


177074 






CLP 


EPRER 


lAND ERROR NUMBER 


50S 


001264' 


005067 


177072 






CLR 


EPPWD 


;AND ERROR WORD 


506 


001270' 


005067 


177074 






CLP 


BDBYTS 


JAND BAD BYTES 


507 


001274' 


003067 


176746 






CLP 


SYSTAT 


jAND SYSTEM STATUS 


508 


001300' 


005067 


176602 






CLR 


ERRTYP 


?AND ERROR TYPE 


509 


001304' 


000207 








RT5 


PC 
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510 


001306' 


027727 


176774 


177777 DECODI 


CMP 


9TBLPTR,#»1 


JLAST OP CODE PROCESSED? 


511 


001314" 


001007 






BNE 


11 


;N0 


512 


001316* 


016767 


176762 


176762 


MOV 


TBLTOP,TBLPTP 


JYES^POINT TO TOP 


513 


001324' 


005267 


176700 




INC 


LASTOP 


ISET FLAG 


514 


001330" 


000167 


000476 




JMP 


DECRET 


JEXIT 


51S 


001334* 


012700 


004714* 


l$l 


MOV 


#TRBUF»R0 


JPOINT TO TOP OF TRANSMIT BUFFER 


316 


001340* 


00S777 


176742 




TST 


PTBLPTR 


jIS IT COMMAND? 


517 


001344' 


100460 






BP I 


DECCMD 


JYES 


518 


001346* 


012700 


004714' 




MOV 


#TRBUF,P0 


jNO-THEREFOPE IS DATA PACKl 


519 


0013S2' 


112710 


000001 




MOVB 


SPSDATA,9R0 


JFLAG BYTE 


520 


001336* 


112760 


000200 


000001 


MOVB 


«128,,1CR0) 


jBYTE COUNT 


521 


001364* 


012702 


000200 




MOV 


#128, ,R2 


IFOR DATA INSERTION COUNT 


522 


001370' 


005720 






TST 


(R0)4. 


fGET BY THE BYTE COUNT 


523 


001372* 


116720 


176676 


2$l 


MOVB 


PATRN# (R05+ 


JAND INSERT DATA 


524 


001376' 


005302 






DEC 


R2 


JUNTIL 


§25 


001400' 


001374 






BNE 


2$ 


JCOMPLETED 


526 


001402* 


012767 


000204 


176702 


MOV 


#3 32e»SNDCNT 


JTOTAL COUNT FOR SENDING 


527 


001410' 


012701 


000202 




MOV 


#130, ,R1 


JCOUNT FOR CHECKSUM ROUTINE 


528 


001414' 


012700 


004714' 




MOV 


#TRBUF,R0 


jPOINT TO TOP AGAIN 


529 


001420' 


004767 


002072 




CALL 


CHKSUH 


JCALC, THE CHECKSUM 


530 


001424' 


010U0 






MOV 


Rl. CP0) 


jRETURNED IN Rl WITH R0 AS POINTER 


531 


001426* 


032777 


000100 


176652 


BIT 


#DTAFL4,9TBLPTR 


JLAST DATA PACKET? 


S32 


001434' 


001412 






BEQ 


3S 


jNO, EXPECT CONTINUE, ETC^ 


533 


001436' 


012767 


000002 


176664 


MOV 


»R$END,X$FLG 


jYESi EXPECT END PACK 


534 


001444* 


012767 


000016 


176660 


MOV 


#P|NDSE,XSCNT 


jTHIS BIG 


535 


0014S2' 


012767 


000001 


176646 


MOV 


#1 iXSPKNM 


JAND ONLY 1 PACKET RESPONSE 


536 


001460' 


000554 






BR 


DECRTl 


jEXIT 


537 


001462* 


012767 


000020 


176640 3Sl 


MOV 


§rscont,x$flg 


JHERL NOT LAST PACKET 


538 


001470' 


012767 


000001 


176634 


MOV 


«1 ,XSCNT 


jEXPECTi CONTINUE? 1 BYTE 


539 


001476' 


012767 


000001 


176622 


FOV 


#1#XSPKNM 


?1 PACK 


540 


001504' 


000542 






BR 


DECRTl 


J EXIT 


541 


001506' 


000240 




DECCMDl 


NOP 




J HERE WE BUILD A COMMAND PACKET! 


542 


001510' 


112710 


000002 




MOVB 


#P8CMND,aR0 


J FLAG BYTE 


543 


001514' 


1 12760 


000012 


000001 


MOVB 


#R$MSIZ»!CR0) 


JMES5AGE SIZE 


544 


001522* 


J 17760 


176560 


000002 


MOVB 


»TBLPTR,2(R0) 


jTHE OP CODE 


545 


001530' 


105060 


000003 




CLRB 


3(R0) 


JNOT VERIFY 


546 


001534' 


105060 


0M0004 




CLRB 


4(R03 


{PRESET TO DRIVE 


547 


001540' 


005067 


176504 




CLR 


DPV 


JDITTO 


548 


001544' 


032777 


000400 


176534 


BIT 


«BIT8,afBLPTR 


jWAS DRIVE 1, THOUGH? 


549 


00J5S2' 


001404 






BEO 


4$ 


f NO 


550 


001554* 


105260 


000004 




INCB 


4CR0) 


jYES^-SELECT DRl 


551 


001560' 


005267 


176464 




INC 


DRV 


JDITTO 


532 


001564' 






4Sl 








553 












554 














{CONVERT DRV TO ASCII AND 


555 














JSTORE AT ASDPV 


556 


001564' 


104421 


000000* 


000250' 


BTODS 


BEGIN, DRV, ASDRV 




557 


00157 2' 


000252' 












558 












559 


001574' 


105060 


000005 




CLRB 


5CR0) 


;N0 MODIFIERS 


560 


001600' 


005060 


000006 




CLP 


6CR«) 


J HO SEQUENCE S 


561 


Pi0l 604 ' 


012760 


0PI1 00Pi 


000010 


MOV 


8512. ; 8, (P0) 


JUSF STANDARD BLOCK SIZE 


562 


001612* 


(il676«^ 


176454 


000012 


MOV 


P^-C, 10« CRf^) 


{INSERT RECORD NUMBER 


563 


5^01620' 


01270! 






MOV 


«PSMSIZ,P1 


; MESSAGE PACKET SIZE 


564 


0^11624' 


M05721 






TST 


(Rl) + 


{PLUS BYTE COUNT AND FLAG 


565 


001626' 


P12767 


On0f»16 


176456 


MOV 


«PSSNSZ,SMDCM 


{ SIZE TO SEND 
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566 


1 6 3 4 * 


004767 


001656 






CALL 


L M Is O IJ pi 




567 


001 640 * 


010110 








MOV 


R 1 t 9R0 


■ TU D4 !i!TT|4 D 01 «> « ^ b] y C* O fi* 

JIN K 1 w i Tn HW»»*wntXi!. 


568 
















jTnr- CM'!jCKoU" wUHP uULS 


569 


642 ' 


4 27 6 7 


000002 


176376 




BIC 


*HIT1 t SYSTAT 


JNOT SELF TEST PRESET 


570 


001650* 


1 22777 


000007 


176 4 30 




CMpR 






571 


001 6S6* 


00101 5 








BNE 


1 S 


f NO 


572 


0P1660* 


052767 


000002 


176360 




BIS 


»PITl # SYSTAT 


jYES^SELF TEST FLAG SET 


573 


001666 ' 


012767 


000002 


176434 




MOV 


»RSEND»XSFLG 


jyes^expect end pack 


574 


001674' 


012767 


000016 


J 76430 




FiOV 


»R$NDSZ, X8CNT 


{OF PROPER SIZE 


575 


001 702' 


012767 


000001 


176416 




MOV 


« 1 » XSPK.NM 


; AND ONLY 1 PACKET 


576 


001710' 


000440 








BR 


DECRTl 


jEXIT 


377 


001712* 


122777 


000003 


176366 


131 


CMPB 


«RS$WR,@TBLPTR 


J NOT SELF TEST^WAS IT WPITE? 


57 B 


00172^' 


00101 2 








Bf'l 


2S 


} NO 


579 


0H1722' 


01276 7 


000020 


176400 




MOV 


«PlCONT#Xf FLG 


{ YE5"EXPECT CONTINUE 


580 


001730' 


012767 


000001 


176374 




MOV 


# 1 1 X$CNT 


{AND 1 BYTE 


581 


001736' 


012767 


000001 


176362 




MOV 


» I » XSPKNM 


{AND 1 PACKET 


5S2 


001744* 


000422 








BR 


DECPTJ 


{EXIT 


583 


001746 ' 


005000 






281 


CLB 


R0 


{ HERE TRANSACTION MUST BE READ 


584 


0017S0' 


01270 3 


00033"* 






MOV 


» XtFLGf R 3 


J GET ADDHj OF XSFLG 


585 


0017S4' 


012723 


000001 




3$ i 


MOV 


»PIDATA» (R3)+ 


{ INSERT TOTAL OF 


586 


»3 1 7 6 ' 


012723 


000 204 






MOV 


#132« » (R3)* 


{4 DATA FLAG BYTES EXPECTED, 


587 


001764* 


005200 








INC 


R0 


{SANDWICHED WITH 


588 


001766* 


022700 


000004 






CMP 


#4. >P0 


{THE COUNT OF 


589 


001772' 


001370 








BNE 


3S 


{EACH 


590 


001774' 


012723 


000002 






HOV 


SRiENDi CP3)* 


{ THEN THE END PACK 


591 


002000' 


012713 


0t>0016 






MOV 


»RSNDSZ» CP3) 


{AND ITS SIZE 


592 


002004 * 


012 76 7 


000005 


176314 




MOV 


85 # XiPKNM 


{CURHtCT TU 5 t AftCTtD PACiNia 


593 
594 


002012' 


017767 


176270 


176334 


DECPTll 


MOV 


?TBLPTR,ERROP 


{COPY OP CODE IN CASE EPROR 


595 


5'id2020' 


062767 


0P00P.2 


176260 




ADD 


82#TBLPTR 


{UPDATE POINTER FOR NEXT OPERATION 


596 


002026' 


005067 


176176 






CLR 


LASTOP 


{INDICATE STILL IN TABLE 


597 


002032* 








DECPETI 








598 


002032' 


000207 








PTS 


PC 
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XTUAA0, 


,P11 IS 


i»JUN«.79 


599 






600 






601 


002034' 


117777 


602 


002042* 


005267 


603 


002046' 


005367 


604 


002052' 


00S005 


605 


002054 ' 


005267 


606 


002060' 


042777 


607 


002066' 


000002 


608 






609 


002070' 


042777 


610 


002076' 


017767 


611 


002104' 


116777 


612 


002112' 


005767 


613 


002116' 


100003 


614 


002120' 


005267 


615 


002124' 


000461 


616 


002126' 


005067 


617 


002132' 


005767 


618 


002136' 


001423 


619 


002140' 


005067 


620 


002144* 


127777 


621 


002152' 


001415 


622 


002154' 


012767 


623 


002162' 


012767 


624 


0021 70' 


127727 


625 


002176' 


001003 


626 


002200' 


012767 


627 


002206' 


005267 


628 


002212' 


005367 


629 


002216' 


001016 


630 


002220' 


005367 


631 


002224' 


001417 


632 


002226* 


062767 


633 


002234' 


017767 


634 


002242' 


162767 


635 


002250* 


005267 


636 


002254' 


052777 


637 


002262* 


000402 


638 


002264* 


005267 


639 






640 


002270* 


1)00002 



MACYll 30A{1052) 15-JUN-79 I2t36 
/ INTERRUPT SERVICE ROUTINES / 



.SBTTL / INTERRUPT SERVICE ROUTINES / 



176250 


176200 


SNDHNDI 


MOVB 


0SNDPTR,9SXMDB 


{OUTPUT BYTE 


176242 






INC 


SNDPTP 


{-»»>NEXT 


176240 






DEC 


SNDCNT 


{ANY MORE? 








BNE 


1$ 


{YES 


176144 






INC 


PKSNT 


{NO-SET FLAG 


000100 


176152 




BIC 


#0I/(8XMSR 


{AND NO MORE INTS 






1$S 


PTI 




{FAST AND FURIOUS 


000100 


176136 


PCVHNDJ 


BIC 


»DI,PPCSR 


{KILL ANY NESTING 


176134 


176256 




MOV 


eRCDB,EpRWD 


{GET 8YTE+ERB0R 


176252 


176202 




MOVB 


EPRWD,0RCVPTP 


{SAVE BYTE IN BUFFER 


176244 






TST 


EPRWD 


{ERROR? 








BPL 


RCVOK 


{NO 


176102 






INC 


PKRCVD 


{YES SET PCVD FLAG 








BP 


PrVRET 


{EXIT 


176230 




RCVOKJ 


CLR 


EPRWD 


{NO-CLEAR ERROR 


176074 






TST 


FSTFLG 


{IS THIS A 1ST BYTE? 








BEQ 


IS 


{NO 


176066 






CLP 


FSTFLG 


jYES-CLEAR 


176132 


176142 




CMpB 


gXSPTR,PRCVPTR 


{WAS IT THE FLAG WE EXPECTED? 








BEO 


U 


{YES-CONTINUE 


000001 


176140 




MOV 


«1,RCVCNT 


{00P5-PRESET FOB EXIT 


000001 


176126 




MOV 


«1 ,RCPKNM 


{IS LAST PACKET, TOO, 


176120 


000002 




CMPB 


PRCVPTHf *P5END 


{WAS IT A PREMATURE END PACK? 








BNE 


IS 


{NO WAY 


000016 


176114 




MOV 


#PSNDSZ|PCVCNT 


{YES USE CORRECT COUNT 


176102 




ISl 


INC 


PCVPTR 


{-->NEXT SLOT 


176104 






DEC 


RCVCNT 


{MORE OF THIS PACKET? 








BNE 


2S 


{YES 


176072 






DEC 


RCPKNM 


>NO»A.vy MORE PACKETS? 








BEO 


3S 


;N0 


000006 


176046 




ADD 


»6»X$OTR 


; YES-->NEXT EXPECTED COUNT 


176042 


1 76060 




MOV 


OXSPTR, RCVCNT 


•GET NEW COUNT 


000002 


176032 




SUB 


#2»XSPTP 


}«->NFXT EXPECTED FLAG 


175756 






INC 


FSTFLG 


{SAY IT'S 1ST BYTE 


000100 


175752 


2$l 


PIS 


«rif SRCSR 


{OK TO RE-ENABLE INTS, 








BP 


RCVHET 


{QUIT? QUICKLY 


175736 




3St 


INC 


PKRCVD 


{HEFt LAST PACKET RCV'D 






PCVPET: 


PTI 




{EXIT 
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SEQ 01^17 



641 








«SBTTL 


UTILITY SUBROUTINES 




642 
643 


002272* 


000340 




DOBRKi 


NOP 




JSEND INIT TO DEVICE 


644 


002274" 


105067 


176075 




CLRB 


INITWD+l 


ISTART FRESH 


64S 


002300" 


042777 


000100 


175732 


PIC 


9Dlf SXMSR 


;KXLL SEND 


646 


002306' 


042777 


000100 


175720 


BIC 


#OI,iPCSR 


JKILL RECEIVE 


647 


002314* 


052777 


000001 


175716 


BIS 


#BIT0#f XMSR 


fSET "BREAK" 


648 


002322' 


012704 


000010 




MOV 


S8,,R4 


JSET COUNT 


649 


002326' 






Hi 








650 


002326' 


104407 


000000' 




BREAKS, 


,BEGIN 


jTEMPORARY RETURN TO MONITOR, 9,, 


6S1 


002332* 


104407 


000000^ 




BREAKS, 


rBEGIN 


?THEN CONTINUE AT NEXT INSTRUCTION, 


6S2 


002336' 


10S777 


175676 




TSTB 


9XM5R 


IREADYI 


6S3 


002342' 


100371 






BPL 


1$ 


>N0 


634 


002344' 


11677? 


171022 


173670 


MOVE 


BRKWDiiXMDB 


ISEND NULL 


63S 


002332' 


003304 






DEC 


R4 


IMORE NULLS TO SEND? 


636 


0023S4'' 


001364 






BNE 


IS 


lYES 


657 


002336^ 


042777 


000001 


175634 


BIC 


#BIT0#iXMSR 


|NO»CLEAR "BREAK" 


658 


002364' 


017704 


173646 




MOV 


0PCDB|P4 


ICLEAR POSSIBLE GARBAGE 


659 


002370' 


012704 


000002 




MOV 


#2#R4 


INUMBER or nNlTS" TO SEND 


660 


002374* 






211 








661 


002374* 


104407 


000000' 




BREAK$, 


(BEGIN 


f TEMPORARY RETURN TO MONITOR*,.* 


662 


002400' 


104407 


000000' 




BREAKS, 


iBEGIN 


ITHEN CONTINUE AT NEXT INSTRUCTION. 


663 


002404' 


105777 


173630 




TSTB 


9XMSR 


IREADY TO SEND! 


664 


002410' 


100371 






BPL 


2$ 


|N0 


665 


002412' 


116777 


175756 


175622 


MOYB 


INITWD,*XMDB 


|YES«SEND 


666 


002420' 


003304 






DEC 


R4 


)M0Ri7 


667 


002422' 


001364 






BNE 


2$ 


lYES-CONTlNUE 


668 


002424' 






381 








669 


002434" 


104407 


000000' 




BREAKS, 


.BEGIN 


ITEMPORARY RETURN TO MONITORs,^, 


670 


002430' 


104407 


000000' 




BREAKS, 


iBEGIN 


JTHEN CONTINUE AT NEXT INSTRUCTION^ 


671 


003434' 


105777 


175574 




TSTB 


fRCSR 


iREADY TO RECEIVE? 


672 


003440' 


100371 






BPL 


3$ 


JNO 


673 


002442* 


117767 


175370 


175725 


MOVB 


iRCDB,INITWO+l 


lYES-GET RESPONSE 


674 


002450' 


126727 


173721 


000020 


CMPB 


INITWD*1,#RSC0NT 


JIS CONTINUE! 


675 


002436' 


001412 






BEQ 


4$ 


}Y£S 


676 


002460' 


004767 


001136 




CALL 


ERRSET 


|NO»PRiPARE EXTENDED ERROR INFO^ 


677 


002464' 


012767 


000034 


173414 


MOV 


#34#ERRTYP 


ICODE FOR »CAN NOT INITIALIZE" 


678 












679 


002472' 


10440S 


000000^ 


000436* 


HRDER$, 


r BEGIN, ERRTBL 


ICAN'T INIT 


680 












681 
682 


003300' 


004767 


176214 




CALL DROP 


tThlhh 


683 


003504' 






4IS 








684 


002304' 


000207 






RTS 


PC 





TUAA DEC/Xll SYSTEM EXERCISER MODULE 
XTUAA0,P11 15-JUN-79 13l36 



6SS 
686 
687 
698 
689 
690 
691 
692 
693 



003306' 000240 
002510' 012703 
002514' 
002520' 
002522' 
002526' 
002530' 



012704 
009023 
162704 
001374 



005122* 
001036 



MACYll 30A(10S2) 15-JUN-79 
UTILITY SUBROUTINES 



12136 PAGE 19 



» MODULE TO ZERO THE 542. BYTE RECEIVE BUFFER "RCVBUF" 



CLRBUFt 



NOP 
MOV 
MOV 
CLR 
SUB 
BNE 
RTS 



#RCVBUr,R3 
#542, fR4 

(R3) + 
#2>R4 
13 
PC 



} ZEROES RECEIVE BUFFER 
}GET ADDRESS 
lAND THE SIZE 
JCLEAR 

13 BYTES LESS 
)PR IF MORE 



TUAA DEC/Xli SYSTEM EXESCISEP MODULE MACYlt 30A(1052) lS"aUN»79 12l36 PAGE 20 
XTUAA0,P11 i5'^J\jn«19 12126 UTILITY SUBROUTINES 



SEQ 0019 



694 fMODULE TO INTERPRET ANY RESPONSE FROM DEVlCEs 

69S 



69§ 


002532* 


000240 




CHKANSI 


NOP 




jEVALUATE THE TOTAL RESPONSE FROM UNITl 


697 


002534' 


005067 


175560 




CLR 


PKCHKD 


|» OF PACKS INTO TRANSACTIONS0, 


698 


002S40' 


012700 


00S122* 




MOV 


»PCVBUF,R0 


iGET BUFFER ADDR, 


699 


002544* 


016702 


175556 




MOV 


XSPKNM,R2 


JAND » OF PACKETS EXPECTED 


700 


0025S0' 


013703 


000330* 




MOV 


#X$FLG,R3 


{ADDRESS OF 1ST EXPECTED FLAG 


701 


002554* 


010301 






MOV 


R3»R1 


ICOPY TO Rl 


702 


0025S6* 


«62701 


000002 




ADD 


»2iPl 


,NOW Ri»«>XSiCNT FOR 1ST PACKET 


703 


002562' 


010067 


175512 


l$l 


MOV 


R4«#PKPTR 


JHERE R0»>TOP OF PACKET 


704 


0025S6* 


003367 


175526 




INC 


PKCHKD 


lONE MORE PACK INTO RESPONSE 


705 


002S72' 


011 167 


175526 




MOV 


9RliRCBCNT 


ICOPY COUNT 


706 


002576* 


0W4767 


001010 




CALL 


ERRSET 


IPREP FOR ERROR 


70? 


002602* 


121013 






CMPB 


iR0»»R3 


llST BYTiBEXPECTED? 


708 


003604^ 


001037 






BNE 


S$ 


lUH OH,,,SRANCH 


709 


002606* 


121027 


000020 




CMPB 


fR0r#RlCONT 


?0K, 18 IT I BYTll 


710 


002612* 


001S00 






BEQ 


7S 


1 YES ONTO NEXT PACK 


71i 














|N0, SO > I BYTE (NEVER EXPECT INITU 


712 


002614^ 


016704 


175504 




MOV 


RCBCNT,R4 


}S0 THEN USE EXPECTED COUNT 


713 


002620' 


00S744 






TST 


•-(R4) 


»ADJUST FROM RECIEVE COUNT TO CHECKSUM CNT 


714 


003622* 


004767 


001046 




CALL 


CKCKSM 


ICHECK THE CHECKSUM 


71S 


002636* 


103012 






BCC 


2$ 


INO CARRY.., NO INCORRECT 


716 


002630* 


104403 


000000* 


004536* 


MSGNg, 


BEGIN, CHKSMR 


fASCII MESSAGE CALL WITH COMMON HEADER 


717 












718 


003636' 


104405 


000000* 


000436* 


HRDERg 


, BEGIN, ERRTBL 


jCHECKSUM ERROR 


719 












720 


002644* 


012767 


177777 


175S06 


MOV 


#»1,ERRER 


J ERROR FLAG 


721 


003692" 


000473 






BR 


CHKRET 


lEXIf 


722 


002S54* 


122710 


000002 


2$l 


CMPB 


#RSEND,CP0} 


lEND PAK? 


733 


003630" 


001003 






BNE 


3$ 


INO 


724 


003663' 


004767 


000340 




CALL 


CHKSUC 


|YES>«SES If SUCCESi CODE VALID 


7as 


003666* 


000467 






BR 


CHKRET 


lEXIT 


1^26 


003670* 


122710 


003001 


3$i 


CMPB 


»R$DATA,$R0 


(DATA PAKI 


727 


002674* 


0010S6 






BNE 


OTLERR 


INO 


728 


002676* 


004767 


001032 




CALL 


COMPAR 


|YES"CHECK DATA 


729 


002702* 


000444 






BR 


71 


fON TO NEXT PACK 



'30 
'31 



002704* 


000240 




5li 


NOP 




iHERE CHECKS UNEXPECTED RESPONSE 


002706* 


122710 


000004 




CMPB 


#R«INIT»iR0 


UNIT? 


002712' 


001012 






BNE 


6$ 


fNO 


002714* 


104403 


000000* 004370* 




MSGNSy 


BEGIN, RCINIT 


lASCII MESSAGE CALL WITH COMMON HEADER 












002722* 


104405 


000000* 000436* 




HRDER8 


, BEGIN, ERRTBL 


lINIT RECIEVED 












002730* 


012767 


177777 173422 




MOV 


#»1,ERREP 


jFATAL 


002736* 


000443 






BR 


CHKRET 




002740* 


122710 


000002 


6§l 


CMPB 


IRSEND, (R05 


lEND? 


002744* 


001032 






BNE 


OTLERR 


JNO-OIIT TO LUNCH 


002746* 


012704 


000016 




MOV 


#R$NDSZ,B4 


jYES-TOTAL SIZE MINUS 


002752* 


003744 






TST 


■''(R45 


JTWO (THE CHKSUM) 


002754* 


004767 


000714 




CALL 


CKCKSM 


iCHECK IT 


002760* 


103403 






BCS 


10$ 


lOOPS 



TUAA DEC/XU SYSTEM EXERCISER MODULE 



000000* 004556* 
000000* 000436* 
177777 175346 



XTUAA0, 


Pll 15 


«JUN«79 


7S0 


002762' 


004767 


7§i 


002766* 


000427 


752 






7S3 


002770' 




7S4 


002770' 


104403 


755 






7SS 


002776' 


104405 


7S7 






7S8 


003004* 


012767 


7S9 


003012' 


000415 


760 






761 


003014* 


005302 


762 


003016* 


001413 


763 


003020* 


066700 


764 


003024* 


022121 


765 


003026* 


022323 


766 


003030* 


0006S4 


767 






768 


003032' 


012767 


769 


003040* 


052767 


770 


003046* 


005767 


771 


0030S2* 


001407 


772 


003054* 


104403 


773 






774 


003062* 


104403 


775 






776 


003070' 


PI00415 


111 






778 


003072' 


032767 


779 


003100* 


00141 1 


780 


003102' 


042767 


781 


003110* 


104403 


782 






783 


0031 16' 


i0440S 


784 






78S 


003124* 




786 


003124* 


000207 
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CALL 
BR 



177777 175320 

000010 175200 
175310 

000000* 004616* 

000000* 000436* 



000010 175146 981 



000010 175136 

000000* 004602' 



000000* 000436* 



CHKSUC 
CHKRET 



jOKiNOW TEST 5UC« CODE 
lEXIT 



MSGNl, BEGIN, CHKSMR ; ASCI I MESSAGE CALL WITH COMMON HEADER 

I ««»»««««*«*««**««»«»«««*»«««*««»«»«*«**«»«**»*«««#«««»«««*«***« 

HPDERS, BEGIN, ERRTBL jCHECKSUM ERROR 



MOV 


#«1,ERRER 


1 FATAL 


BR 


CHKRET 


lEXIT 


DEC 


R2 


|N0, or PACKETS LEFT TO CHECK 


BEQ 


CHKRET 


lALL DONE 


ADD 


RCBCNT,R0 


/POINT TO NEXT PACKET 


CMP 


(Rl)+f (Rl)+ 


1 POINT TO NEXT EXPECTED COUNT 


CMP 


(R3)+, (R3)+ 


}AND EXPECTED FLAG 


BR 


1$ 


;TRY ANOTHER, THEY'RE SMALL 


MOV 


#»1,ERRER 


|HERE«STRANGE RESPONSE 


BIS 


#BIT3,SY8TAT 


I8ET O.T.L. FLAG 


TST 


ERPWD 


jDLV ERROR? 


BEQ 


9$ 


fNO"BRANCH 


MSGN$, 


BEGIN, DLERR 


lASCII MESSAGE CALL WITH COMMON HEADER 




HPDERI 


, BEGIN, ERRTBL 


IDLV ERROR 


1 


BP 


10$ 


lEXIT 


BIT 


SBIT3,SYSTAT 


IWAS THERE OTL ERROR? 


BEQ 


10$ 


|NO»EXIT 


BIC 


iBIT3,SYSTAT 


lYES-RESET AND PRINT! 


MSGNl, 


BEGIN, OtL IASCII 


MESSAGE CALL WITH COMMON HEADER 




HPDERI 


, BEGIN, ERRTBL 


/UNKNOWN FLAG BYTE 
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XTUAAt),PU IS-'JUN-Tg 12126 UTILITY S'JBPOUTIhFS 



SiQ 0021 



787 
788 










789 


003126' 


000240 






790 


003130* 


010067 


175144 




791 


003134' 


J 16067 




175134 


792 


003142' 


122760 


0(^0000 


0^10003 


793 


003150' 


001561 






794 


003152* 


004767 


000434 




795 










796 


003156' 


122760 


000001 


000003 


797 


003164* 


001007 






798 


003166* 


104403 


000000* 


004634* 


799 














iVjh •two 


000000 


0004 JO 


B01 












003202 ' 








803 


003204' 


122760 


177737 


000003 


804 


003212' 


001010 






803 


003214* 


104403 


000000' 


004702* 


806 
807 


003222" 


104405 


000000' 


000436' 


808 
809 


003230* 


004767 


175464 




810 


003234* 


122760 


177757 


000003 


811 


003242' 


001007 






812 


003244* 


104403 


000000' 


004632* 


fll3 










814 


003252* 


10440S 


000000* 


000436* 


81S 










816 


003260' 


000S15 






817 


003262' 


032767 


000002 


174758 


818 


003270' 


001413 






819 










820 


003272' 


105760 


000003 




821 


003276' 


100106 






822 


003300* 


104403 


000000^ 


004624* 


823 










824 


003306' 


10440S 


000000' 


000436* 


82S 










826 


003314* 


004767 


175400 




827 










828 


003320* 


122760 


177740 


000003 


839 


003336* 


001007 






830 


003330* 


012767 


000051 


1745S0 


831 










R to 
034 


003336 


104405 


a /% m f% Hi a 9 




833 










834 


003344* 


000460 






83S 


003346* 


122760 


177767 


000003 


836 


0033S4' 


001007 






837 


0033S6* 


104403 


000000* 


004SI6* 


838 
839 


003364* 


104405 


000000' 


000436* 


840 










841 


003372* 


000445 






842 











NOP 




MOV 


PP#PKPTP 


MOVP 


3CP0)»SUCCS 


CMPB 


8E$OK,3CR0) 


BEQ 


12$ 


CALL 


EPRSET 


CHPB 


#E$TPY,3(B05 


BNC 


2t^$ 



MSGNS, BEGIN, BTPy 



; MODULE TO InTEPPRET THF SUCCESS CODE OF AN END PACKET 

JSEE IF VALID SUCCESS CODE! 
JCOPY TOP or PACKET POIM 
jGET SUCCESS CODE 
!GOOD SUCCESS? 
jYES-EXIT 

IPOTENTIAL HARD EPROB PPF.P, 

JOK BUT RETRIES? 
|N0 

lASClI MESSAGE CALL WITH COMMON HEADER 

I #«»«■*»«»■»•»»#»»»«*«■»»#■»«»»««»«»«'»»#»»»*•»#*<»«»»*«*■»*»»■»»■»«•*'»»#»«•»« 
SOfERS, BEGIN, ERPTBL iRETRIES OCCURRED 

J 

BP 121 lYES-EXIf 

CMPB «E$NOMO,3(B0) JNO MOTOR? 
BNE 1$ >N0,,, 

MSGN8, BEGIN, NOMOT lASCII MESSAGE CALL WITH COMMON HEADER 

I 

HRDERI, BEGIN, EBRTBL J "NO MOTOR" ERROR 

I 

CALL DROP jFATAL-COULD UNWIND CASSETTE 

CMPB #E$CKS#3(R0) {CHECKSUM ERROR? 
BNE 131 }N0 

MSGNi, BEGIN, DACHK ?A5CII MESSAGE CALL WITH COMMON HEADER 

'»##'»#««-»#»«'»««"»«###4»«ft#«'»««#'» 
HRDER$, BEGIN, ERRTBL )READ RETRIES FAILED 



BR 
BIT 
BEG 



12$ 

«BIT1,SYSTAT 
3$ 



|YES«EXIT 
?SELr TEST? 
|N0 



TSTB 3(R05 {NEGATIVE IF FAIL 

BPL 12S lOK 

MSGN$, BEGIN, SLFOTL | ASCII MESSAGE CALL WITH COMMON HEADER 

HPDERg, BEGIN, ERRTBL fSELF TEST FAIL 
I 

CALL DROP {FATAL UNEQUIVICALLY 

CMPB #E$SK,3(R0) jSEEK ERROR? 

BNE 4S ;N0 

MOV #51#ERRTYP |YES, 

I 

HRDEP$, BEGIN, ERRTBL {SEEK ERROR 

BR 10$ {EXIT-ERROR 

CMPB #E$NCRT,3CR0) {NO CART? 

BNE 5$ {NO 

HSGNS, BEGIN, NOCAR? {ASCII MESSAGE CALL WITH COMMON HEADER 

HRDERS, BEGIN, ERRTBL {NO MEDIA 

BR 108 {EXIT «ERROR 
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XTUAA0, 


,P11 IS 


i«JUN«79 


12S26 




UTILITY 


SUBROUTINES 




843 


003374* 


122760 


177720 


000003 


SIS 


CMPB »ESCHD,3CR05 


{NO UNDERSTAND HOST? 


844 


003402* 


001436 








BEG 11$ 


{YES 


845 


003404' 


132760 


177770 


000003 


6$l 


CMPB #E$NONX,3(R05 


{NON EXISTENT UNIT 


846 


003412* 


001432 








BEQ 11$ 


{YES 


847 


003414* 


122760 


177765 


000003 


7Si 


CMPB #E$WLOC,3CR05 


{WRITE LOCKED 


348 


003422* 


001007 








BNE 8$ 


{NO 


849 


003424* 


104403 


000000* 


004S30* 




MSGNg, BEGIN, WRPRO 


{ASCII MESSAGE CALL WITH COMMON HiADSR 


850 












{«#««'»««««'»«««««##«««-»»«»#«•»'»#»«#«#'»«#»««##««««##«#««'»#««##«#### 


851 


003432* 


104405 


000000* 


000436' 




HRDERI, BEGIN, ERRTBL 


{WRITE LOCKED 


852 














853 


003440* 


000422 








BR 10$ 


{EXIT»ERBOR 


854 


003442* 


122760 


177776 


000003 


8$i 


CMPB #ESPART#3(R0) 


{PARTIAL OPI 


855 


003450* 


001413 








BEG 11$ 


{YES 


856 


003452* 


122760 


177711 


000003 


f$l 


CMPB #E$REC,3(R0) 


{WRONG RECORD 


857 


003460* 


001407 








BEQ 119 


{EXIT 


858 


003462* 


104403 


000000* 


004542* 




MSGN$, BEGIN, SUCOTL 


{ASCII MESSAGE CALL WITH COMHOH HSADER 


859 












{#«»##«»#«»«»»»»#»«■»#«■***»»»»«»»«»»«»»»«»-»»»«»»»»»««.»«#»»«•#«»#«•» 


860 


003470* 


104405 


00000«' 


000436* 




HRDERI, BEGIN, ERRTBL 


{UNKNOWN SUCCESS CODE 


861 












{■»#»«»»*#««#«#»«#«##««#»»■»»«•»»#*»»»»»#»#«»»»#»»»*»#•»»##»»«#*■»«## 


862 


003476* 


000403 








BR 10$ 


{EXIT "ERROR 


863 


003500* 








11$S 






864 


003500* 


104403 


000000* 


004666" 




MSGN$, BEGIN, BDSUC 


{ASCII MESSAGE CALL WITH COMMON HEADER 


863 


003506' 


012767 


177777 


174644 


10SS 


MOV #«»1,ERRER 


{OPERATION FATAL 


866 


003514* 








12St 






867 


003514* 


000207 








RTS PC 
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XTUAA0,pn 15»JUM«»7'? 12i26 UTILITY S^BPOUTT^'Fs 



StQ «023 



869 
870 
871 
872 
873 
874 
875 
876 
877 
878 
879 



•CHKSUM / FORM JHF PACKET CHECKSUM 



ENTEPI 
P0 POINTS TO PACKET 
PI 3 BYTES IN PACKET 

FXITl 

Rl a CHECKSUM" 

P0 POINTS TO ADDRESS FOR PACKET CHECKSUM 



880 


003316* 








CHKSUMi 






881 


003516' 


W10346 








MOV 


P3»"{SP) 


883 


003520" 


010246 








MOV 


R2f "-(SP) 


883 


003522* 


042767 


000001 


174516 




EIC 


«PIT0,sySTAT 


884 


003530' 


032701 


000001 






BIT 


»RIT0,R1 


885 


003S34* 


001403 








BEQ 




886 


003536* 


052767 


000001 


174502 




BIS 


#PIT0,sySTAT 


887 
















888 


003544' 


006001 






ISI 


POP 


Rl 


889 
















890 


003546' 


005003 






3$! 


CLR 


R3 


891 
















892 


003550' 


062003 






SSI 


ADD 


CR05-!-»P3 


893 


0035S2' 


005503 








ADC 


P3 


894 


003S34' 


005301 








DEC 


PI 


893 


003556' 


001374 








BNE 


3§ 


896 
















897 


003S60' 


032767 


000001 


174460 




BIT 


SP1T0,SYSTAT 


898 


003566' 


001405 








BEQ 


4$ 


899 


003570' 


112002 








MOVB 


(P0)+,B2 


900 


003572* 


042702 


177400 






BIC 


#177400, P2 


901 


003576* 


060203 








ADD 


R2#P3 


902 


003600* 


005503 








ADC 


R3 


903 
















904 


003602' 


010301 






4$i 


MOV 


P3,Pl 


905 


003604' 


012602 








MOV 


(SP)'i.,R2 


906 


003606' 


012603 








MOV 


(SP5*,R3 


907 


003610' 


000207 








PTS 


PC 



; "CHECKSUM IS ODD" BIT 

jAN ODD » OF BYTES? 
?M0 

J JUST USED AS TEMP STORAGE 
;/2 FOR WORDS 



JFORM SUM 
IWITH CARRY 
jONE LESS WORD 
fBR IF MORE LEFT 

JWAS IT ODD 

;no 

fYES'COPY TO R2 

ISIGN UN"EXTEND 

}ADD LAST BYTE 

lAND CARRY JUST IN CASE 

{RETURN IT IN CORRECT PLACE 
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XTUAA0„PI! 15 


«JUN"79 


12S26 




UTILITY 


SUBROUTINES 


908 










; MODULE 


TO FILL 


ERRTBL WITH E 


909 
















910 


003612* 


016767 


174416 


174260 


ERPSETl 


MOV 


RCSRfCSPA 


911 


003620' 


017767 


174410 


174254 




MOV 


9RCSR»ACSR 


912 


003626' 


016767 


174444 


174250 




MOV 


SUCC5,ASTAT 


913 


003634' 


017767 


174442 


174514 




MOV 


PXiPTRiERRFLG 


914 


003642' 


017767 


174432 


174514 




MOV 


flPKPTR,ATPAK 


915 


003650' 


062767 


000002 


174422 




ADD 


«2,PKPTR 


916 


003656* 


017767 


174416 


174502 




MOV 


(iPKPTR,ATPAK2 


917 


003664* 


162767 


000002 


174406 




SUB 


»2#PKPTR 


918 


003672' 


000207 








PTS 


PC 



ICOPY CSR 
;AND CONTENTS 

;AND SUCCESS IF APPLICIBLE 

fCOPY EXPECTED FLAGBYTE 

J 1ST AND 2ND BYTES OF ACTUAL PACK 

JPOINTER INC. 

jCOPY 3RD AND 4TH BYTE 

JCORRECT POINTER 



TUAA DEC/Xll SYSTEM EXERCISER MODULE 
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XTUAA0«P1? 13 


»JIIN».79 12126 


UTILITY SUBROUTINFS 






919 






; MODULE TO CHECK THE 


CHKSUM 


OF A RECEIVED PACKET 


920 














921 














922 






I ENTERl 








923 






1 P4 H PACKET PYTE COUNT 




924 






5 P0 POINTS 


TO TOP or PACKET 


92S 














926 






J CALLS 1 "CHKSUM" 






927 






? TO FOPM CHECKSUM, 






928 














929 






; EXITI 








930 






J CAPKi as-T 


» ERROR 






931 






; RESET 


« NO ERROR 




932 














933 














934 


003674* 




CKCK8M 1 








935 


003674* 


010146 


MOV 


Rlf"(SP) 




936 


003676* 


010046 


MOV 


R0,«CSP5 




937 


003700* 


010401 


MOV 


P4,R1 






938 


003702' 


004767 177610 


CALL 


CHKSUM 




939 














940 






• HERE R0 


XMITTED 


CHKSUM, 




941 














942 


003706' 


122001 


CMPB 


(P0)4' 


#R1 


itnus'D nonFo f'UB'fif 

}uvr>Cit< UnUCin WoB'wn 


943 


003710' 


001005 


BNE 


2$ 




jNE COHPAPEZ PASI 


944 














945 


003712' 


000301 


SWAB 


PI 




|OK«.NOW FOR OTHER HALfl 


946 














947 


003714' 


122001 


CMPB 


(R0J* 


,R1 


jHIGH ORDER CHECK 


948 


003716* 


001002 


BNE 


23 




J WRONG-BRANCH 


949 


003720' 


000241 


CLC 






|N0 ERROR FLAG 


930 


003722 * 


000401 


BP 


3$ 




|EXIT"NO ERROR 


951 


003724" 


000261 


281 SEC 






lERROR FLAG 


952 


003726' 




311 








953 


003726' 


012600 


MOV 


(SP)* 


;R0 




954 


003730' 


012601 


MOV 


(SP)4- 


,P1 




935 


003732' 


000207 


BTS 


PC 
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MACYll 30A(1052} 15-JUN-79 
UTILITY SUBROUTINES 



12136 PAGE 27 



956 

957 








jCOMPAR 


/ COMPARE PATTERN WRITTEN TO DATA RECV'D 


958 


003734' 






COMPARI 








959 


003734' 


010046 






MOV 


R0#»'(SP) 




960 


003736* 


010446 






MOV 


R4,"CSP) 




961 


003740* 


010146 






MOV 


RlfCSP) 




962 


003742' 


005067 


174422 




CLR 


BDBYIS 


I NONE WRONG YET 


963 


003746* 


010067 


174326 




MOV 


R0fPKPTR 


|R0">TOP OF PACKET 


964 


003752* 


016704 


174322 




MOV 


PKPTR,R4 


,GET TOP OF PACKET 


965 


003756' 


005204 






INC 


R4 


ILOCATE COUNT 


966 


003760* 


111401 






M0V8 


iR4,Rl 


iGET IT 


967 


003762' 


042701 


177400 




BIC 


#177400, Rl 


ISIGN UN-EXTEND 


968 














IMUST TEST BYTE-WISE,,, 


969 


003766' 


005204 






INC 


R4 


|»«>FIRST DATA BYTE 


970 


003770' 


126724 


174300 


Ul 


CMPB 


PATRN, (R45* 


fWAS WHAT WAS WRITTEN? 


971 


003774' 


001413 






BEQ 


21 


lOKI 


972 


003776* 


005767 


174366 




TST 


BDBYTS 


IWRONG-FIRST ERROR? 


973 


004002' 


001006 






BNE 


3t 


INO, DETOUR iST ADDRESS SETUP 


974 


004004* 


005304 






DEC 


R4 


}UN-AUTO INCREMENT 


975 


004006* 


111467 


174076 




MOVE 


9R4,AWAS 


I SAVE BAD BYTE 


976 


004012* 


010467 


174066 




MOV 


R4rWASADR 


lAND SAVE ADDRESS 


977 


004016* 


005204 






INC 


R4 


ICORRECT POINTER 


978 


004020' 


005267 


174344 


3$t 


INC 


BDBYTS 


;ONE MORE BAD BYTE 


979 


004024' 


005301 




2$l 


DEC 


Rl 


IMORE LEFT? 


980 


004026* 


001360 






BNE 


IS 


JYES 


981 


004030* 


005767 


174334 




TST 


BDBYTS 


lANY WRONG? 


982 


004034* 


001422 






BEO 


4$ 


jNO, EXIT 


983 


004036* 


016767 


174230 


174036 


MOV 


RECfACSB 


1 YES-GET RECORD # 


984 


004044' 


012767 


000274* 


174030 


MOV 


#PATRN,SBADR 


;ADDR SHOULD BE 


98S 


004052' 


016767 


174216 


174026 


MOV 


PATpNfASB 


IDATA SHOULD BE 


986 










1 


987 


004060' 


104404 


000000* 




DATERI 


, BEGIN 


IDATA ERROR 1 i 1 


988 










;«*«*«»»««#«««»«««««•«««•«*««««««««**«»«««»#•«*««»#«««««««*«#»«« 


989 












990 














ICONVERT BDBYTS TO ASCII AND 


991 














ISTORE AT A$BDBT 


992 


004064* 


104421 


000000' 


00037{?* 


BTODS, 


BEGIN, BDBYTS, AIBDBT 


993 


004072' 


000262* 












994 












995 


004074* 


104403 


000000* 


004644* 


MSGN$, 


BEGIN, BADBY 


{ASCII MESSAGE CALL WITH COMMON HEADER 


996 


004102' 






4$l 








997 


004102* 


012601 






MOV 


(5P)+,R1 




998 


004104' 


012604 






MOV 


(SP)+,R4 




999 


004106' 


012600 






MOV 


(SP)+,P0 




000 


0041 10' 


000207 






PTS 


PC 
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MESSAGE FOPWAT 



3EQ 0027 



1001 










»SBTTL 


MESSAGE 


FORMAT 


1002 
















1003 


004112' 


052045 


032523 


020070 


HCSli 


,ASC2Z 


*%TU58 CONTPOLLEB " 


1004 


004120* 


047503 


052116 


047322 








1005 


004126* 


046114 


051 105 


000040 








ls«?06 


004134' 


042040 


044S22 


042326 


MES2I 


.ASCIZ 


' DPIVE ' 


1007 


004142' 


000040 












1008 


004144' 


042045 


0331 14 


042440 


MES3S 


,ASCIZ 


»%DLV EPPOB %' 


1009 


0041S2' 


051122 


05111? 


022440 








1010 


00416C* 


000 












1011 


004161 * 


045 


042523 


043U4 


HES4i 


«ASCIE 


*%SELF TEST FAIIi% * 


1012 


004166* 


0S2040 


051505 


020124 








1013 


004174' 


040306 


0461 1 1 


020043 








1014 


004202* 


000 












1015 


004203* 


04S 


042522 


043101 


MSSSi 


.ASCIE 


nPEAD PETRYS ON OP,!*" 


1016 


004210' 


0S1040 


052105 


054522 








1017 


004216* 


020123 


047117 


047440 








1018 


004224* 


027120 


00004S 










1019 


004230' 


041445 


042510 


045303 


HES71 


,ASCIZ 


*%CHECKSUM ERROR!* 


1020 


004236* 


V552523 


0201 15 


031 105 








1021 


004244' 


047522 


022522 


000 








1022 


00425 1 * 


045 


042522 


043S03 


HESS 1 


gASCIE 


*%RECEIVING INIT REOUEST%* 


1023 


004256* 


0531 1 1 


0471 1 1 


020107 








1024 


004264* 


0471 1 1 


052111 


0S1040 








102S 


004272* 


050505 


042S25 


032123 








1026 


004300" 


00004S 












1027 


004302' 


031045 


032105 


044322 


NES9I 


,ASCIZ 


*%BETPIES FAILED ON 0P«% * 


102i 


0«4310* 


0S1505 


043040 


044301 








1029 


004316* 


042514 


030104 


047U7 








1030 


004324* 


047440 


027120 


020043 








1031 


004332* 


000 












1032 


004333' 


045 


047516 


046440 


ME§i0| 


»ASCXZ 


«%N0 MOTOR ACTIONf* 


1033 


004340* 


052117 


031117 


040440 








1034 


004346* 


0S2103 


047311 


032SI6 








103S 


004354* 


000 












1036 


0043SS* 


045 


047316 


041440 


MESUI 


.ASCIE 


'%N0 CARTRIDGE!* 


1037 


004362* 


051101 


031124 


043111 








1038 


004370* 


042507 


000043 










1039 


004374* 


03344S 


044322 


042524 


HES12I 


»ASCZZ 


*%VJRITE PROTECTED!" 


1040 


004402" 


0S0040 


047322 


042524 








1041 


004410* 


052103 


042105 


000043 








1043 


004416* 


0S204S 


0S2117 


046101 


MCS13I 


,ASCIE 


*%TOTAL BAD BYTES » * 


1043 


004424* 


041040 


042101 


041040 








1044 


004432' 


052131 


05150S 


036440 








1043 


004440* 


000040 












1046 


004442* 


051440 


041525 


042503 


MESlBt 


»ASCIE 


* SUCCESS CODE%* 


1047 


004430* 


051523 


041440 


042117 








1048 


004456* 


02250S 


000 










1049 


004461 * 


040 


046106 


043501 


MES19g 


,ASCZZ 


* FLAG BYTE%* 


1050 


004466* 


041040 


052131 


022505 








1051 


004474* 


000 












1032 


004473* 


045 


000 




MES20! 


sASCIZ 




1-053 


004477' 


045 


047125 


R47113 


MES21I 


«ASCIZ 


*%UNKNOWN * 


1054 


004504' 


053517 


020116 


000 








1055 


004511* 


102 


042101 


000040 


MES22i 


,ASCIZ 


*BAD * 


1056 












,EVEN 
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XTUAA0«P11 iS»'JuN«79 12126 MESSAGE CONSTRUCTS SEQ 0028 



1057 






,S8TTL 


MESSAGE CONSTRUCTS 




1058 












1059 


004516* 


004112* 


NOCARTI 


MESl 


ICARTRIDGE NOT INSERTED 


1060 


004520' 


004134* 




HES2 




1061 


004522* 


000252* 




A$DRV 




1062 


004524* 


00435S* 




MESH 




1063 


004526* 


177777 








1064 












1065 


004530' 


004112* 


WRPROi 


msi 


JCARTRIDGE WRITE PROTECTED 


1066 


004532* 


004134' 




mat 




1067 


004534* 


000252* 




ASDRV 




1068 


004536" 


004374' 




MES12 




1069 


004S40* 


177777 




»| 




1070 












1071 


004542* 


004112* 


SUCOTLl 


MESl 


;COULD NOT INTERPRET SUCCESS CODE 


1072 


004544* 


004134* 




MES2 




1073 


004546* 


0002S2* 




A$DRV 




1074 


004550* 


004477* 




HES21 




107S 


004552* 


004442* 




MES18 




1076 


0045S4* 


177777 








1077 












1078 


004S56* 


004112* 


CHKSMRi 


MESl 


JHOST CALCULATED CHECKSUM FOR 


1079 


004560* 


004134* 




MES3 


IPACKET DOESN'T EQUAL TRANSMITTED ONE 


1080 


004562* 


W00252* 




A$DRV 




1081 


004564* 


004230* 




MES7 




1082 


004566* 


177777 




ml 




1083 












1084 


004570* 


004112* 


RCINITi 


MESl 


IHOST RECEIVED «INIT» REQUEST 




004572* 


004134* 




MES2 


} 


1086 


004574* 


000252* 




A$DRV 


t/ 


1087 


004576* 


004251* 




MESS 




1088 


004600* 


177777 




»1 




1089 












1090 


004602* 


004112' 


OTLl 


MESi 


> 1ST BYTE OF PACKET UNINTERPRETABLE 


I09i 


004604' 


004134* 




MES2 




1092 


004606* 


000252* 




AIDRV 




1093 


004610* 


004477* 




MES21 




1094 


004612' 


004461 * 




MES19 




1095 


004614' 


177777 




»i 




1096 












1097 


004616' 


004U2' 


DLEPRi 


MESl 


jOVERRU^ OR FRAMING ERROR IN RECEIVE 


1098 


004620' 


004144' 




MES3 




1099 


004622' 


177777 




«i 




1100 












i 101 


004624* 


004112' 


SLFOTLi 


MESl 


jDEVICE'S SELF TEST FAILED BUT COULD 


1102 


004626' 


0£^4l6l • 




MES4 


ISTILL SEND AN INTELIGENT PACKET ( t ) 


1 103 


004630' 


177777 




»1 




U04 












U05 


004632' 


004112' 


DACHK: 


MESl 


JDEVICE RETRIED OPERATION 8 TIMES 


1106 


004634 • 


004134* 




MES2 


;and failed 


1 107 


004636' 


000252* 




ASDRV 




1 108 


0(^4640' 


004302 ' 




MFS9 




U09 


'J04642' 


1 77777 




»1 




1 110 












nil 


004644* 


004416' 


BADRY! 


MES13 


jMESSAGE FOR THE TOTAL INCORRECT 


1112 


004646' 


000262' 




ASBDBT 


jDATA bytes PER PACKET, 



f 
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SEQ 0039 



iil3 


004650" 


00447S* 




MES20 


1114 


004652" 


177777 




"1 


1115 










1116 


004654" 


004112* 


RTRYi 


HESl 


1117 


004656' 


004134* 




HES3 


1118 


004660" 


000352^ 




A$DRV 


1119 


004663' 


004303' 




MESS 


1120 


004664* 


177777 




-I 


1121 










1123 


004666" 


004U2' 


BDSUCi 


MESl 


1123 


004670' 


004134^ 




MES2 


1124 


004673' 


000253' 




AgDRV 


1133 


004674* 


004511' 




MES23 


113d 


004676' 


004442'' 




MES18 


1137 


0e!4700* 


177777 




»1 


1138 










1139 


004702* 


004112* 


NOMOTI 


MESl 


1130 


004704' 


004134' 




MES2 


1131 


004706' 


000232' 




A$DRV 


1133 


004710' 


004333' 




MES10 


1133 


004712' 


177777 




»1 



;0EVICE RETRIED OPERATION SUCCCSifUSiIiY 



{SUCCESS CODE VALID BUT OPERATIOM FAILED 



IDEVICE COULDH^T GST ANY MEANINGFUL BlQUhh 
JFROM TAPE 



f 
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1134 
113S 
1136 
1137 
1138 

1139 005133' 001036 

1140 006160' 000000 

1141 000001 



004714^ 000304 
005130' 000000 
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«SBTTL BUFFER AREAS i 
TRBUri 



sBLKB 1339 
,WORD 



LSTADRi 
a END 



RCVBUfl eBLKB 4«R3DAii<$-R$IIOSg 



IDATA PACK SIEE MAX, 
t4 DMk PACK! kUB gMD 
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SSQ 0031 



liCSR 


000102R 


215* 


9ll# 


983« 






ADDR 


000006R 


18H 


481 








ADDR32a 


001000 


2339 












000I06R 


219# 


98S<» 








ASTAT 


000104R 


2it« 


912« 








hlPhK 


000364R 


284S 


398 


914* 






i^TPAKS 


000366R 


2as$ 


399 


916* 






AIIAS 


000110R 


220» 


975* 








A$BDBT 


000262R 


258« 


992 


1112 






A$DRV 


000252R 


2S4# 


S56 


1061 


1067 


1073 


BADBY 


004644R 


995 


llll« 








BDBYfS 


000370R 


286» 


506» 


962» 


972 


978« 


BDSUC 


00466SR 


864 


1122# 








BEGIN 


0000@0R 


178# 


416 


420 


440 


446 






662 


669 


670 


679 


716 






783 


798 


800 


80S 


807 






8S1 


838 


860 


864 


987 


BIT0 tii 


000001 


233» 


409 


489 


647 


657 


BITl s 


000002 


233# 


413 


493 


497 


369 


BlTi0 s 


002000 


233# 










BITII ffl 


004000 


233# 










BIT12 8 


010000 


233# 










BIT13 8 


020000 


233# 










BIT14 B 


040000 


233» 










BITJ5 ffi 


100000 


233« 










BIT2 ® 


000004 


233# 










BIT3 a 


000010 


233# 


769 


778 


780 




BIT4 s 


000020 


2i3* 










BITS s 


000040 


233« 










BIT6 » 


000100 


23311 










BIT7 a 


000200 


233S 










BITS is 


000400 


233# 


548 








BIT9 a 


001000 


233S 










BREAKS8 


104407 


233# 


462 


463 


467 


468 


BRKWD 


000372P 


290# 


654 








BRl 


000012R 


183# 


477 


480 






BR2 


000013R 


184# 










BT0D3 SI 


104421 


233» 


S56 


992 






CDATASK 


104412 


233# 










CHKANS 


002532R 


428« 


696» 








CHKRET 


003046R 


721 


725 


740 


751 


7S9 


CHKSHR 


004536R 


716 


734 


1078» 






CHKSUC 


003126R 


724» 


750* 


789» 






CHKSUM 


003S16R 


529« 


S66# 


880« 


938® 




CKCKSM 


003674R 


714» 


747« 


934# 






CLBBUr 


002S06R 


426« 


687« 








CMNDFLb 


100000 


3049 


362 


363 


368 


369 


COMPAR 


003734R 


728» 


9589 








CONFIG 


0000S6R 


203# 










CSRA 


000100R 


2l3ff 


910« 








DACHK 


004632R 


812 


1105» 








DATCK$«B 


104411 


2338 










DATER$s 


104404 


233# 


987 








DECCMD 


001S06R 


517 


541# 








DECOD 


001306R 


424* 


437» 


510« 






DECRET 


002032R 


514 


S97# 









,080 


1086 


1092 


1107 


1118 


1124 


1131 




981 


992 














462 


463 


467 


468 


3S6 


630 


63i 


661 


718 


733 


737 


754 


736 


772 


774 


781 


812 


314 


823 


824 


332 


837 


$39 


$49 


992 


993 














883 


884 


886 


897 










572 


817 















630 651 661 662 669 670 



762 770# 
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SEQ 00J2 



DECRTl 


002012R 


336 


S40 


376 


582 


S94# 


DI IS 


000100 


393# 


444 


443 


606 


609 


DLERR 


004616R 


772 


1097# 








DOBRK 


002272R 


43S# 


S0|« 


643# 






DROP 


000720R 


4449 


4$9# 


682« 


309« 


@26« 


DRV 


00023011 


3S3« 


347» 


391« 


336 




DRV0 ffl 


000000 


30S9 


363 


363 


364 


333 


DRVl IS 


000400 


3@6# 


3S9 


370 


37i 


372 


DRIOP 


000434R 


37f# 


493 


301 






DTAFLla 


000001 


3001 


364 


371 






DTAFL2«s 


000010 


301« 


36S 


372 






DTAFL3« 


000011 


303# 


366 


373 






DTAFL48S 


000100 


303# 


367 


374 


331 




DVIDX 


000244R 


344# 


404% 


4@9# 


413# 


439 


DVIDl 


0000 14R 


185# 


404 








DSDATAsi 


000000 


299# 


364 


363 


366 


367 


EI a 


000100 


297» 


439 


460 


636 




ENDIT$s!! 


104413 


2339 


440 








ENDS 32 


104410 


333# 


446 








ERRER 


000360R 


282S 


429 


433® 


504* 


720« 


ERRFLG 


0003S6R 


281# 


388 


913# 






ERROP 


000334R 


280# 


384 


394# 






EPRSET 


003612R 


676« 


706* 


794» 


910» 




ERRTBL 


000436P 


384# 
851 


679 
860 


718 


737 


756 


ERRTB2 


0004S6R 


392# 










ERRTYP 


000t06R 


218# 


435« 


S08« 


677# 


830«^ 


ERRWD 


000362R 


283^ 


391 


S0S» 


610« 


611 


EXIT! a 


104400 


233» 










E$ABO >s 


177720 


343» 










C$CKS 8! 


177757 


353S 


353 


3S6 


3S7 


810 


E$CKSMis 


177737 


355» 










E$CMO » 


177720 


351# 


843 








E8NCRT8 


177767 


344$ 


833 








EINOMOs 


177737 


330» 


803 








E»NONX^ 


177770 


343S 


845 








SSOK a 


000000 


342# 


792 








S$PARTsK 


177776 


346# 


854 








E$RD as 


177757 


357# 










ESREC m 


177711 


352» 


856 








E3SK IS 


177740 


347# 


828 








ESSLF m 


177777 


3S4# 










ESTRY ^ 


000001 


3488 


796 








E8WL0CS 


177763 


349« 


847 








ESWR n 


177757 


3S6# 










FSTFLG 


000232R 


239# 


450* 


617 


619# 


633«^ 


GETPA$s 


104415 


233» 










GVNTAK 


000740R 


427* 


450» 








GWBUF85B 


104414 


233# 










HRDCNT 


000044R 


198# 










HRDERSs 


10440S 


233» 
860 


679 


718 


737 


756 


HRDPAS 


{^00050R 


2C^0» 










ICONT 


H00036R 


195# 










ICOUNT 


V500040P 


196» 










IDNUM 


O00122P 


2258 


403 









366 
373 



491 



367 

374 



497 
372 



3iS 
37S 



37f 



374 



834 832 



839 



832 839 



TUAA DEC/Xll SYSTEM 


EXERCISER 


*^ODULE 


WACY 1 1 


3?AC 1052] 


1 S^J 


XTUAA0J 


pi 1 1 5-JuN 


"79 12126 




CROSS 


REFFRFNCE 


TABLE 


INIT 


000030R 


193# 










INITWD 


000374R 


39l» 


390 


644* 


665 


673» 


INTR 


000120R 


224« 










LASTOP 


000330R 


2388 


438 


513* 


596* 




L5TADP 


006160R 


1140« 










MAP22$ffi 


104416 


233« 










MESl 


0041 12R 


1003» 


1039 


1065 


1071 


1078 


MES10 


vv J J n 


1032# 


1132 








MESl 1 


00435SR 


1036# 


1063 








MESl 2 


004374R 


1039# 


1068 








MESi 3 


004416R 


1043# 


1111 








MESl 8 




If 4#« 


1075 


1136 






MESl ^ 


004461R 


1049# 


1094 








MES2 


0041 34R 


1006# 


1060 


1066 


1072 


1079 


MES20 


004473R 


10520 


1113 








MES21 


l!?l7t ^ f 1 f\ 


1053« 


1074 


1093 






MES23 


00431 


1059# 


1133 








MES3 


004144R 


10089 


1098 








MES4 


004161R 


1011# 


1103 








MESS 


004203R 


1015i 


1119 








MES7 


004230R 


1019S 


1081 








MES8 


iC a » f 


1032# 


1087 








MES9 




1027S 


1108 








MODNAM 




179# 










MODSP 


000224R 


193 


231# 








MSGN$ s 


104403 


233# 


716 


733 


754 


772 






864 


995 








HSGSi ^ 


1 04402 


333^ 












1 04401 


233# 










NOCABT 


004516R 


837 


1059# 








NOMOT 


004702R 


803 


1129« 








NULL a 


000000 


233# 










OPEN ^ 


000000 


180 


186 


187 


188 


189 






215 


317 


219 


230 


232 


OPTBL 


000376R 


3620 


491 








0PTBL2 


000414R 


3699 


492» 


495* 


500 


501* 


OTL 


004603R 


781 


1090# 








OTLERR 


003032R 


727 


743 


7689 






OTOA$ s 


104430 


233$ 










PASCNT 


000034R 


194# 










PATUN 


000374R 


263# 


386 


421® 


422* 


523 


PIRQ$ 


000004 


333# 










PKCHKD 


000330R 


273» 


397 


697© 


704* 




PKPTR 


000300R 


26S» 


389 


703» 


790» 


914 


PKRCVD 


000226R 


237« 


4S2« 


469 


614« 


6384» 


PKSNT 


000334R 


3369 


4S1» 


464 


60S» 




POPSP a 


005736 


233# 










POPSPS^ 


023636 


333# 










PRTY SI 


000000 


233# 










PRTY0 a 


000000 


184 


333$ 








PRTYl s 


000040 


333# 










PRTY2 ffi 


000100 


233# 










PRTY3 88 


000140 


233# 










PRTY4 m 


000300 


1S3 


233$ 








PRTY5 SB 


000340 


233# 










PRTY6 s 


000300 


333# 











USER SYMBOLS 



1083 



1091 



1097 



1106 



1117 



1105 



1123 



1116 



1129 



781 



206 
233 



823 



307 
224 



208 
233# 



209 



213 



9l5# 



916 



985 

917» 963# 964 
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PRTY7 s 


000340 


233# 








PS s 


177776 


333# 








PSW m 


177776 


233# 








PUSH » 


005746 


233» 








PUSH2 B 


024646 


333# 








RAND$ m 


104417 


333# 


416 


430 




RANNUM 


0000S4R 


302» 


417 


421 




RCBCNT 


000324R 


275« 


393 


70S* 


712 


RCDB 


000236R 


24H 


484« 


610 


658 


RCINXT 


004S70R 


735 


1084# 






RCPKNM 


000316R 


273# 


453* 


633« 


630« 


RC5R 


000234R 


240« 


444® 


460# 


483« 


RCVBUF 


005122R 


457 


688 


698 


1139« 


RCVCNT 


000322R 


374» 


392 


454» 


623* 


RCVHND 


002070R 


476 


609# 






RCVOK 


002136R 


613 


616» 






RCVPTR 


000314R 


371# 


387 


457« 


611# 


RCVRET 


003370R 


615 


637 


640S 




REC 


000373R 


363# 


383 


417* 


418« 


RESTRT 


000S63R 


331 


413# 


442 




RESl 


0000S6R 


304# 








RES2 


000060R 


205« 








RSTRT 


000il3p 


2318 








RSTRT2 


000630R 


426$ 


439 






RTRY 


0046S4R 


798 


1116« 






R«CMNDs 


000002 


314# 


320 


542 




R$CONT» 


000030 


315# 


537 


579 


674 


R$DASZb 


000304 


326« 


327 


1139 




RIDATAa 


000001 


319» 


519 


585 


726 


R8DNSEB 


000333 


327# 








R8END a 


000003 


320# 


533 


573 


590 


RIINITis 


000004 


291 


318# 


733 




R$MSIZ)s 


000012 


335« 


328 


543 


563 


RlNDSZs 


000016 


324# 


327 


534 


574 


RSSNSZa 


000016 


338« 


565 






RSXOFFs 


000023 


317* 








RIXON a 


000020 


316# 








R$$END!B 


000100 


333« 








R$|NIT» 


000001 


337« 








R$$N0P3S 


000000 


336# 








R$$RD a 


000002 


334# 


368 


375 




Rg$SEKiB 


000005 


3358 








RISSLFffi 


000007 


338« 


363 


369 


379 


R$$WR s 


000003 


333lf 


363 


370 


577 


SBADR 


000102P 


214# 


984» 






SLFOTL 


004624R 


832 


110l# 






SNDCNT 


000312R 


270# 


526# 


565« 


603« 


SNDHND 


002034P 


479 


60l« 






SNDPTP 


000310P 


269# 


458» 


601 


602* 


SOFCNT 


000042R 


197» 








SOFERSis 


104406 


233# 


800 






SOFPAS 


000046R 


199# 








SPOINT 


000032R 


193# 


403 






SPSIZ ^ 


000040 


1» 


226 






SRI 


000016R 


1S6S 








SP2 


000020R 


1878 









763 
673 



609« 



563 



910 



628« 

624 
983 



627* 



624 
591 



722 742 

626 745 1139 
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SEQ 0033 



SP3 

SP4 

STAPT 

STAT 

SUCCS 

SUCOTL 

SVP0 

SVRl 

SVB2 

SVRl 

SVR4 

SVB5 

SVR6 

SYSCNT 

SYSINI 

SYSSET 

SYSTAT 

TBLPTR 

TBLTOP 

TRBUF 

TRPDFD>s 

VECTOR 

HASADR 

WDFR 

WDTO 

WPPRO 

XFLAG 

XMDB 

XM5R 

XSCNT 

XSFLG 

Xg^KNM 

XSPTR 



00f022P 
000034R 
000500R 
000026R 
000276R 
004542P 
000062R 
000064R 



000072P 
000074R 
00007SR 
0000S2R 
001072R 
001246R 
00024&R 
000306P 



004714P 

000022 

000010P 

000104R 

000116R 

000iHR 

004530R 



000242R 
000240R 
000332P 
000330R 
000326R 
000302R 
006162R 



188i» 

189$ 

192 

191« 

264» 

858 

206# 

207» 

208# 

2098 

210» 

2ll« 

2\2t 

201# 

414« 

494 

249« 

268# 

267# 

4S8 

233# 

182» 

2168 

223# 

222» 

849 

180# 

243# 

242# 

278« 

277« 

276# 

266» 

254« 



403# 



453« 
1071# 



47S» 

496 

4344» 

432» 

432 

51S 

475 
976« 



106S# 

488» 

445» 

396 

395 

394 

4S6« 

258# 



S02# 




















507« 


569« 


572» 


769* 


778 


780» 


817 


383« 


e86« 


897 


502® 


510 


512® 


516 


531 


544 


548 


570 


377 


594 


491* 


500* 


502 


512 














518 


528 


1136# 

















595* 



601* 


654» 


665« 










4S9* 


486* 


606* 


645« 


647« 


652 


657» 


454 


534* 


538« 


574* 


380« 






456 


533* 


S37» 


573« 


579« 


584 


700 


455 


S35« 


539* 


575* 


S8l» 


S92* 


699 


620 


632* 


633 


634« 


913 






279# 


1136» 


1139# 











8 ABSe 000000 000 

006162 001 
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RUN^TIME RATIOl 35/17s2,0 
CORE USED! 7K C13 PAGES) 



r 



